'mi-  :: 


lite; 


u 


nnr!ley  Knox  Library,  KPS 
erey.  CA  93943 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


THESIS 

CONDENSATION  HSAT  TRANSFER  OF  STEAM 
ON  A  SINGLE  HORIZONTAL  TUBE 

by 

Kenneth  A.  Graber 

June  1983 

Thesis 

Advisor:                 P.  J.  Marto 

Approved  for  public  release;  distribution  unlimited 

T2G9045 


TTMnT.A.q.qTTTT^n 


SECURITY  CLASSiriCATION  OF  THIS  PACE  CWhnt  Dmtm  Bnfrtd) 


REPORT  DOCUMENTATION  PAGE 

READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 

1.    RKPOnr  NUMBCR 

2.  GOVT  ACCESSION  NO. 

3.     RECIPIENT'S  CATALOG  NUMBER 

4.    r\T\.t  (mtl  SubtllU) 

Condensation    Heat    Transfer    of   Steam    on 
a    Single   Horizontal    Tube 

5.     TYPE  OF  REPORT  &  PERIOD  COVERED 

Master's    Thesis 
June    1983 

8.     PERFORMING  ORG.   REPORT  NUMBER 

7.     AUTMO«<«; 

Kenneth   A.    Graber 

8.    CONTRACT  OR  GRANT  NUMBERC*; 

•  •    PenrORMINOOROANIZATION  NAME  AND  ADDRESS 

Naval   Postgraduate   School 
Monterey,    California      939^0 

10.     PROGRAM  ELEMENT,  PROJECT,  TASK 
AREA  &  WORK  UNIT  NUMBERS 

n.     CONTROLUINC  OrriCE  NAME  AND  ADDRESS 

Naval   Postgraduate    School 
Monterey,    California      9394-0 

12.     REPORT  DATE 

June    1983 

13.     NUMBER  OF  PAGES 

82 

U.    MONITORING  AGENCY  NAME  ft   AODRESSC'/ d'//«ran(  from  ConlrolUni  OUica) 

15.     SECURITY  CLASS,   (ol  thia  report) 

15a.     OeCLASSIFI  CATION/ DOWN  GRADING 
SCHEDULE 

!•.     DISTRItUTlON  STATEMENT  (ol  thl»  Report) 

Approved    for    public    release;    distribution    unlimited 

17.    DISTRIBUTION  STATEMENT  (of  (h*  mbatrael  wi(«r*tf  /n  Block  30,  If  dllUtunt  from  Rtporl) 

t«.    SUPPLEMENTARY  NOTES 

1».    KEY  WORDS  (Continu*  an  rovtmrn  aid*  //  n«c«aaarr  and  IdanUly  by  block  numbar) 

Heat    Transfer 
Condensation 
Experimental    Apparatus 
Enhanced      Condensation 

20.     ABSTRACT  (Centim—  <m  ravaraa  aldo  II  nmcmmomn  «><'  Idontlly  by  block  numbor) 

An    experimental    apparatus    was    designed,    constructed   and 
instrumented    in    an    effort    to    systematically   and    carefully 
study   the    condensation    heat-transfer    coefficient    on    a    single, 
horizontal    tube.       A    smooth,    thick-walled    copper    tube    of   length 
133.5    mm,    with   an    outside    diameter    of    15.9    mm    and   an    inside 
diameter    of    12.7    mm   was    instrumented   with    six   wall    thermocouples. 
The    temperature    rise    across    the    test    section    was    measured 

DO  ,  :2r7,  1473 


EDITION  Of   1  NOV  «8  IS  OBSOLETE 

S/N  0102-  LF.  014-6601  1 


UNCLASSIFIED 


ecniBiTv  ri   assiPiCaTion  of  this  PAGE  i'l»Ti«n  Dara  SnffC 


UiN  l^ijHOOir  XLjU 


SECURITY  CLASSIFICATION  OF  THIS  PACE  (Hfiwi  Dmtm  Entrnwd) 


20.  ABSTRACT  (cont'd) 

accurately  using  quartz  crystal  thermometers.   The  inside 
heat-transfer  coefficient  was  determined  using  the  Sieder- 
Tate  correlation  with  leading  coefficient  of  0.029.   Initial 
steam  side  data  were  taken  at  atmospheric  pressure  to  test  the 
data  acquisition/reduction  computer  programs. 


S    N  0102-  LF-  014-6601 

2  UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGEfWh»n  DMm  Enfrmd) 


Approved  for  public  release;  distribution  unlimited 


Condensation  Heat  Transfer  of  Steam  on  a  Single 

Horizontal  Tube 


by 


Kenneth  A.  Graber 
Lieutenant,  United  States  Navy 
B.S.,  United  States  Naval  Academy,  1977 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 


MASTER  OF  SCIENCE  IN  MECHANICAL  ENGINEERING 


from  the 


NAVAL  POSTGRADUATE  SCHOOL 
June  1983 


C./ 


Judley  Knox  Library.  NPS 
ABSTRACT  Monterey.  CA  93943 


An  experimental  apparatus  was  designed,  constructed  and 
instrumented  in  an  effort  to  systematically  and  carefully 
study  the  condensation  heat-transfer  coefficient  on  a  single, 
horizontal  tube.   A  smooth,  thick-walled  copper  tube  of 
length  133.5  mm,  with  an  outside  diameter  of  15.9  mm  and 
an  inside  diameter  of  12.7  mm  was  instrumented  with  six 
wall  thermocouples.   The  temperature  rise  across  the  test 
section  was  measured  accurately  using  quartz  crystal 
thermometers.   The  inside  heat-transfer  coefficient  was 
determined  using  the  Sieder-Tate  correlation  with  leading 
coefficient  of  0.029.   Initial  steam  side  data  were  taken 
at  atmospheric  pressure  to  test  the  data  acquisition/ 
reduction  computer  programs. 


k 


TABLE  OF  CONTENTS 

I.  INTRODUCTION ^3 

A.  SIGNIFICANCE ^3 

B.  OBJECTIVE ^^ 

II.  DESCRIPTION  OF  EXPERIMENTAL  APPARATUS   I5 

A.  OVERVIEW  OF  SYSTEM I5 

B.  CONDENSER  TEST  SECTION 16 

1.  Cooling  Water  System  I7 

2.  Test  Condenser  Tubes 18 

C.  DUMP  CONDENSER  SYSTEM 18 

D.  VACUUM  SYSTEM I9 

E.  INSTRUMENTATION 20 

1 .  Heater  Power  Control  20 

2.  Pressure  Measurement  21 

3.  Temperature  Measurement   21 

III.  SYSTEM  OPERATION  33 

IV.  DATA  ACQUISITION/REDUCTION 3^ 

A.  DATA  ACQUISITION  AND  STORAGE 34. 

B.  DATA  REDUCTION 3^ 

C.  STEPWISE  SOLUTION  PROCEDURE   35 

1.  Program  SIEDER 35 

2.  Program  NSFDRP 35 

V.  RESULTS  AND  DISCUSSION 38 

A.  INSIDE  HEAT-TRANSFER  COEFFICIENT  38 

B.  OUTSIDE  HEAT-TRANSFER  COEFFICIENT   39 


VI.   CONCLUSIONS  AND  RECOMMENDATIONS Ul> 

A.  CONCLUSIONS U^ 

B.  RECOMMENDATIONS ^3 

APPENDIX  A:   SAMPLE  CALCULATIONS 4-5 

1 .  INSIDE  HEAT-TRANSFER  COEFFICIENT  ^5 

2.  CONDENSATION  HEAT-TRANSFER  COEFFICIENT 4.7 


APPENDIX  B 
APPENDIX  C 
APPENDIX  D 
APPENDIX  E 


SYSTEM  STARTUP  PROCEDURES   50 

SYSTEM  SHUTDOWN  PROCEDURES  52 

TEST  SECTION  INSTALLATION  PROCEDURES  ....  53 

THERMOCOUPLE  CALIBRATION    5^ 

1  .   EQUIPMENT  USED 54 

a.  Thermocouple  Wire 54 

b.  Calibration  Bath 54 

c.  Thermocouple  Readout  54 

d.  Reference  Point 54 

e.  Temperature   Measurement  55 

2.  PREPARATION 55 

a.  Procedure 55 

b.  Reference  Point 55 

c.  Thermometers 55 

d.  Analysis 55 

3.  CALIBRATION  PROCEDURE   56 

4.  CALIBRATION  CURVE   56 

APPENDIX  F:   TEST  TUBE  CLEANING  PROCEDURES 61 

APPENDIX  G:   COMPUTER  PROGRAM  LISTINGS   63 

1  .   TC_CAL 63 

2.   NSFDRP 64 


3.   SIEDER 69 

4..   PLOT 73 

5.  Q_LOSS 75 

6.  DATA  RUN  SIEDSR ' 77 

7.  DATA  RUN  NSFDRP 79 

LIST  OF  REFERENCES 80 

INITIAL  DISTRIBUTION  LIST  82 


LIST  OF  TABLES 

I.  HP  3^97A  Channel  Assignments  36 

II.  Sieder-Tate  Coefficients  39 


LIST  OF  FIGURES 

2.1  Schematic  of  Test  Apparatus 23 

2.2  Photograph  of  Overall  System   Showing  Data 
Acquisition   System 2^4 

2.3  Schematic  of   Test  Section 25 

2.^   Photograph  of  Test   Section 26 

2.5  Test  Tube   Construction 27 

2.6  Photograph  of  Cooling  Water  System  28 

2.7  Photograph  of  Overall  System  Showing  Boiler  and 

Air  Conditioning  Unit 29 

2.8  Photograph  of  Instrumented  Test  Tube 30 

2.9  Photograph  of   Control  Panel  31 

2.10  Power  Controller  Circuitry  32 

4..1   Photograph  of  Data  Acquisition/Reduction  System   .  .  37 

5.1  Sieder-Tate  Parameter  Plot 4-1 

5.2  Condensing  Coefficient  Plot 4-2 

E.I   Schematic  of   Calibration  Bath 58 

S.2   Calibration  Printout  59 

E.3   Thermocouple  Calibration  Curve  60 


NOMENCLATURE 

A^  Inlet  fin  area  (m  ) 

2 

Ap  Outlet  fin  area  (m  ) 

C.  Sieder-Tate  Coefficient 

C  Specific  heat  (Kj'/Kg  -  K) 

D.  Inside  diameter  of  test  tube  (m) 
1 

D  Outside  diameter  of  test  tube  (m) 
o 

D  Outside  diameter  at  outlet  end  (m) 
r 

2 

h.  Inside  heat-transfer  coefficient  (W/m   -  K) 

2 

h  Condensation  heat-transfer  coefficient  (W/ra  -K) 

k  Thermal  conductivity  of  copper  (W/m-K) 

k„  Thermal  conductivity  of  water  evaluated  at  T,  (W/m-K) 

L^  Inlet  fin  length  (m) 

Lp  Outlet  fin  length  (m) 

L  Condensing  length  (m) 

LMTD  Log  mean  temperature  difference  (   C  ) 

m  Mass  flow  rate  (kg/s) 

Nu  Nusselt  number 

Nu  Computer  generated  Nusselt  number 

P^  Fin  parameter  1 

Pp  Fin  parameter  2 

Pr  Prandtl  number 


10 


Q         Heat  flow  rate  (W) 

2 

Q         Heat  flux  based  on  outside  area  (W/m  ) 

Re        Reynolds  number 

2 

R        Wall  resistance  based  on  outside  area  (m  -K/W) 

T^        Inlet  temperature  to  test  section  (  °C  ) 
Tp        Outlet  temperature  from  test  section  (  °C) 

T^  Bulk  fluid  temperature  (  °C  ) 

T  Steam  temperature  (  °C  ) 

T  Average  wall  temperature  (   C  ) 

T  .-T  /  Wall  temperatures  (  °C  ) 

W  I     W  D 

U        Overall  heat  transfer  coefficient  based  on  outside 
o 

area  (W/m  -K) 

V        Cooling  Water  velocity  (m/s) 
w 

Greek  Symbols 
U         Dynamic  viscoscity  of  water  evaluated  at  T, 
U         Dynamic  viscoscity  of  water  at  average  inner  wall 


w 


^f 


2 
temperature  (N-S/m  ) 

Specific  volume  of  fluid  (m  /Kg) 


n^        Inlet  fin  efficiency 


rip  Outlet    fin    efficiency 


11 


ACKNOWLEDGEMENT 

The  author  would  like  to  take  this  opportunity  to  thank 
his  advisor,  Professor  P.  J.  Marto  for  his  support  and 
guidance  throughout  this  research  effort. 

Special  thanks  are  extended  to  Dr.  A.  S.  Wanniarachchi , 
without  whose  expertise  and  guidance  this  paper  would  not 
have  been  possible. 

The  author  would  also  like  to  thank  the  lab  supervisor, 
Mr.  Tom  Christian  and  lab  technician,  Mr.  Ron  Longuiera  for 
their  technical  help  during  the  design  and  construction 
phases  of  this  project. 


12 


I.   INTRODUCTION 

A.   SIGNIFICANCE 

Experimental  studies  have  shown  that  enhancement  techniques 
applied  on  the  steam  side  of  horizontal  condenser  tubes  may 
significantly  reduce  the  thermal  resistance  and  thus  reduce 
the  overall  size  and  weight  of  the  condenser.  Several  work- 
shops and  conferences  on  heat  exchangers  have  addressed 
specific  areas  in  need  of  research  {Refs.  1,2,3).   Recently, 
there  have  been  many  investigations  into  possible  alterna- 
tives for  enhanced  heat-transfer  surfaces  in  the  design  of 
heat  exchangers  {Refs.  2, 4-, 5, 6, 7}.   Webb  (Ref.  8}  in  1980 
published  an  excellent  review  of  enhancement  methods  as 
applied  to  condensers. 

Enhancement  techniques  can  generally  be  divided  into 
two  major  categories:   water-side  enhancement  and  steam-side 
enhancement.   Water-side  enhancement  is  covered  extensively 
by  Bergles  3:  Jensen  {Ref.  9}.   Various  steam-side  enhance- 
ments include  low  integral  fins,  surface  coatings,  fluted 
tubes  and  roped  tubes. 

The  goal  of  any  enhancement  technique  is  to  lower  the 
thermal  resistance  to  the  point  where  the  technique  becomes 
economically  feasible.   Althouth  Bergles  S:  Jensen  {Ref.  9} 
show  that  extensive  reduction  in  thermal  resistance  can  be 
obtained  on  the  water-side,  it  is  felt  that  a  significant 
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portion  of  the  overall  thermal  resistance  can  be  reduced  by 
enhancement  techniques  on  the  steam-side.   Both  methods  must 
be  examined  independently  because  the  best  enhancement  for 
one  side  may  not  be  the  best  for  both  sides. 

Several  research  efforts  have  been  undertaken  at  the 
Naval  Postgraduate  School  to  model  steam  surface  condensers 
and  analyze  their  thermal  performance  numerically  {Refs. 
10,11,12}.   Based  on  numerous  computer  runs  used  to  analyze 
different  combinations  of  both  inside  and  outside  enhancements, 
it  is  felt  that  further  experimental  research  should  be 
conductdd  on  steam-side  enhancement  techniques. 

B.   OBJECTIVE 

The  objective  of  this  research  effort  was  to  obtain 
smooth-tube  baseline  data  necessary  to  act  as  the  standard 
for  future  enhancement  techniques.   Both  the  inside  and 
outside  heat-transfer  coefficients  had  to  be  identified 
and  all  experimental  methods  used  to  obtain  and  reduce  the 
recorded  data  had  to  be  well  documented  so  that  future 
testing  using  enhanced  tubes  would  be  performed  under  identical 
conditions . 
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II.   DESCRIPTION  OF  EXPERIMENTAL  APPARATUS 

A.   OVERVIEW  OF  SYSTEM 

The  experimental  apparatus  used  in  this  investigation,  as 
described  in  Reference  13,  was  constructed  of  stainless  steel 
and  152.4.  mm  (6  in)  diameter  Corning  Pyrex  glass  piping.   An 
overall  schematic  of  the  system  is  shown  in  Figure  2.1  and 
a  photograph  is  shown  in  Figure  2.2.   A  boiler  section 
304-.8  mm  (12  in)  in  diameter  and  4-87.7  ram  (19.2  in)  in 
height,  with  a  304.. 8  ram  (12  in)  to  152.4^  mm  (6  in)  reducing 
section,  provides  steam  for  the  system.   Ten  Watlow 
4.000-Watt,  4-80-Volt  stainless  steel  immersion  heaters  are 
used  to  provide  input  power.   Each  heater  is  15.9  ram  (5/8  in) 
diameter  and  279.4-  mm  (11  in)  long.   All  heaters  are 
connected  in  parallel. 

Stean  travels  up  the  glass  piping  to  a  height  of  3.1  m 
(10  ft)  and  makes  a  180-degree  bend  followed  by  a  1.52  m 
(5  ft)  straightening  section  prior  to  passing  through  the 
condenser  test  section.   Two  helically-wound,  water  cooled 
coils  of  9.5  mm  (3/8  in)  diameter  copper  tubing  act  as  a 
dump  condenser  to  remove  all  excess  steam.   A  25.4-  ram  (1  in) 
diameter  stainless  steel  tube  returns  condensate  by  gravity 
to  the  boiler. 
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B.   CONDENSER  TEST  SECTION 

The  condenser  test  section  is  made  of  stainless  steel, 
^52.l   mm  (6  in)  in  diameter  and  4-57.2  mm  (18  in)  in  length. 
Figure  2, '5    shows  a  schematic  and  Figure  2.4.  shows  a  photo- 
graph of  the  test  section.   Steam  is  condensed  on  a  single 
horizontal  tube.   Two  types  of  smooth  test  tubes  were 
constructed  of  high-grade  copper  to  provide  baseline  data  for 
inside  and  outside  heat-transfer  coefficients.   An  instrumented 
tube,  constructed  as  shown  in  Figure  2.5»  and  an  uninstrumented 
tube  of  the  same  dimensions  were  used  to  obtain  initial  data. 
The  uninstrumented  tube  was  constructed  identical  to  the 
instrumented  tube  but  there  were  no  channels  machined  for 
thermocouple  installation.   The  active  condensing  length 
was  133.3  mm  (5.25  in)  with  a  suitable  correction  applied 
for  the  "fin"  effect  created  by  both  ends  of  the  tube  not 
being  in  direct  contact  with  the  steam  on  the  outside, 
but  cooled  by  water  on  the  inside.   The  fin-effect  calculations 
are  described  in  Appendix  A. 

The  test  tube  is  held  in  place  by  nylon  holding  rings  as 
described  in  Reference  13.   An  additional  0-ring  was  placed 
inside  the  inlet  section  to  prevent  cooling  water  from 
leaking  into  the  grooves  of  the  instrumented  test  tube. 
Nylon  was  used  to  minimize  axial  conduction  from  the  test 
section.   A  nylon  mixing  chamber  described  in  Reference  13 
was  placed  in  the  outlet  side  prior  to  measuring  the  temper- 
ature to  ensure  thorough  mixing  of  the  coolant.   A  11  4-. 3  mm 
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(4.. 5  in)  diameter  double  glass  window,  heated  by  hot  air 
to  prevent  fogging,  was  used  to  provide  visual  observation 
of  the  condensing  process. 

A  12.7  mm  (0.5  in)  port  at  the  dump  condenser  section 
was  used  as  an  overpressure  relief  line  and  boiler  fill 
line.   An  in-line  0.108  MPa  (1  psig)  relief  valve  was  used 
to  allow  gases  to  escape  while  warming  up  the  system. 
A  12.7  mm  (0.5  in)  vacuum  valve  was  placed  in  a  branch  line 
off  of  the  relief  line  to  allow  filling  of  the  boiler  as 
described  in  Appendix  B.   All  connections  v/ere  assembled 
with  Swagelok  fittings  sealed  with  Teflon  ferrules  to  ensure 
leak  tighness. 

1 .   Cooling  Water  System 

A  closed  loop  cooling  water  system  was  designed  and 
constructed  to  circulate  cooling  water  through  the  test 
section.   A  0.001  cu-m  (2.8  cuft)  stainless-steel  tank  was 
used  as  a  reservoir  which  fed  the  suction  end  of  a  close 
coupled  centrifugal  pump  rated  at  0.0022  m  /s  (11  GPM)  at 
12.19  m  (4-0  ft)  of  head.   A  19.1  mm  (3/4-  in)  diameter  bronze 
needle  valve  was  used  to  regulate  the  flow  which  was 
monitored  by  a  rotameter  with  a  full-scale  range  of  6.94- 
E-4  m^/s  (IIGPM).   See  Figure  2.6  for  details.   The  maximum 
flow  rate  through  the  test  tube  was  4.57  m/s  (15  fps)  at 
an  inlet  temperature  of  15.6  C  (60  F) .   The  centrifugal 
pump  needle  valve  arrangement  provided  a  flow  rate  accuracy 
of  0.5  percent  on  a  scale  with  100  divisions.   After  leaving 
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the  condenser  test  section,  the  water  was  cooled  back  d 
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to  the  15.6  C  (60  F)  bath  temperature  by  means  of  a  11.73  kW 
(4.0,000-BTU/Hr)  direct  expansion  heat  exchanger.   The  heat- 
exchanger  refrigerant  dissipates  the  heat  to  the  atmosphere 
through  a  10.55  kW  (3  ton)  air-conditioning  unit.   The 
chiller  section  is  illustrated  in  Figure  2.7. 

The  closed  loop  cooling  water  system  was  chosen  in 
order  to  more  closely  monitor  the  water  flow  rate  and  the 
inlet  temperature  to  the  test  condenser  tube.   The  reservoir 
is  easily  filled  by  use  of  the  installed  fill  line  and 
drained  by  use  of  a  siphon  tube. 
2.   Test  Condenser  Tubes 

Initial  smooth  tube  data  were  taken  using  an  instru- 
mented copper  tube  as  illustrated  in  Figure  2.8.   Construction 
of  the  instrumented  tube  was  carefully  performed  in  accordance 
with  Figure  2.5.   The  instrumented  tube  must  be  installed 
according  to  the  instructions  as  outlined  in  Appendix  D  to 
prevent  damage  to  thermocouple  wires  and  leakage  from  the 
system.   Each  wall  thermocouple  should  be  checked  for  proper 
operation  prior  to  taking  any  data. 

C.   DUMP  CONDENSER  SYSTEM 

A  dump  condenser  is  installed  to  condense  excess  steam 
from  the  test  section.   Cooling  water  is  supplied  from  tap 
water  through  two  parallel,  helically-wound,  9.5  mm  (3/8  in) 
diameter,  copper  coils.   One  smaller  diameter  coil  is  placed 
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inside  the  other,  while  both  are  ^57.2  mm  (18  in)  high.   The 
tap  water  flow  rate  is  controlled  by  a  19.05  mm  (3/4.  in) 
diameter  bronze  needle  valve  and  is  monitored  using  a 
rotameter.   System  internal  pressure  can  be  controlled  by 
reducing  the  flow  of  cooling  water  to  the  dump  condenser. 
For  a  given  boiler  power  input,  a  dump  condenser  rotameter 
reading  will  correspond  to  a  system  pressure. 

D.   VACUUM  SYSTEM 

Two  operational  vacuum  systems  are  available  to  maintain 
sub-atmospheric  conditions  within  the  apparatus;  an  air 
ejector,  powered  by  1.1  MPa  (160  psig)  air  supplied  by  the 
Mechanical  Engineering  Department  reciprocating  air  corn- 
pressure,  and  a  portable  mechanical  vacuum  pump  (Figure  2.6). 
Either  system  may  be  used  to  initially  draw  down  the  pressure 
but  only  the  air  ejector  may  be  used  while  the  system  in  in 
operation  due  to  the  lack  of  a  nitrogen  cold  trap  on  the 
mechanical  vacuum  pump.   The  vacuum  system  inlet  valve  can 
be  used  to  throttle  the  air  ejector  to  maintain  any  system 
pressure  above  13.8  kPa  (2  psia).   This  system  is  also 
useful  in  removing  noncondensable  gases  from  the  apparatus. 
The  sequential  drawing  down  of  vacuum  on  the  system  while 
steaming,  shutting  the  vacuum  inlet  valve  and  raising  the 
pressure  to  about  13.8  kPa  (2  psia)  by  adjusting  the  dump 
condenser  throttle  valve  was  found  to  be  an  effective 
method  of  removing  noncondensable  gases.   This  procedure 
should  be  repeated  about  three  times. 
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The  system  will  not  maintain  vacuum  due  to  cracked  silver 
soldered  connections  at  the  base  of  the  dump  condenser 
section.   The  copper  tubing  used  as  a  dump  condenser  pene- 
trates the  stainless  steel  base  and  was  sealed  with  silver 
solder  which  cracked,  producing  small  leaks. 

E.   INSTRUMENTATION 

1 .   Heater  Power  Control 

Power  input  to  the  apparatus  is  regulated  by  a 
voltage  sensing  circuit.   Line  voltage  (4.4.0-VAC)  is  fed  into 
a  differential  input  precession  voltage  attenuator  which 
divides  the  line  voltage  by  one-hundred.   This  stepped- 
down  voltage  passes  through  a  True  Root  Mean  Square  converter 
stage  on  which  the  integrated  period  has  been  reduced  to 
about  1  ms.   The  output  of  the  TRMS  converter  is  buffed  and 
compared  to  a  reference  voltage  provided  by  a  potentiometer 
mounted  on  the  front  panel.   See  Figure  2.9  for  a  general 
view  of  the  control  panel.   The  comparator  output  is  fed 
to  the  control  input  of  a  Halmar  silicon-controlled  rectifier 
power  supply  which  provides  the  voltage  applied  to  the  heater 
elements.   The  buffered  output  of  the  TRMS  converter  is 
amplified  and  filtered  to  provide  a  normalized  voltage 
output  proportional  to  the  actual  voltage  output  of  the 
power  supply  which  is  monitored  by  the  data  acquisition/ 
reduction  system.   A  line  diagram  is  provided  in  Figure 
2.10. 
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2,  Pressure  Measurement 

A  U-Tube  mercury  manometer,  calibrated  in  millimeters, 
is  installed  to  measure  system  pressure.   The  pressure  tap 
is  located  at  the  test  section  and  is  tilted  upward  to  avoid 
steam  from  collecting  in  the  manometer  (Figure  2.4.).   A 
vacuum  valve  is  installed  in  the  pressure  line  to  prevent 
condensation  from  accumulating  in  the  manometer.   A  small 
amount  of  water  eventually  collects  in  the  manometer,  but 
this  discrepancy  is  taken  into  account  by  the  data  acquisition/ 
reduction  software  with  manual  input  to  the  keyboard  of 
mercury  height  followed  by  water  height. 

3 .  Temperature  Measurement 

Various  temperatures  are  monitored  throughout  the 
system  to  include:   1.   test  section  cooling  water  inlet 
and  outlet,  2.   steam,  3.   condensate  return,  4-.   ambient, 
5.   test  tube  wall  and  6.   cooling  water  reservoir.   The 
temperature  rise  across  the  test  section  is  measured  by 
Hewlett-Packard  quartz  crystal  thermometer  accurate  t< 
0.04.  C.   The  location  of  the  temperature  probes  are  shown  i; 
Figure  2.4-.   The  cooling  water  reservoir  temperature  is 
monitored  by  a  direct  readout  alcohol-in-glass  thermometer. 
All  other  temperature  measurement  is  accomplished  by 
copper-constantan  thermocouples:   two  for  the  steam,  six  for 
the  test  tube  wall  and  one  for  the  condensate  return.   Each 
temperature  measurement,  except  for  the  cooling  water 
reservoir,  is  read  directly  by  a  Hewlett-Packard  34-97A 
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data  acquisition  system,  which  is  controlled  by  a  Hewlett- 
Packard  9826  computer. 

During  operation,  the  six  wall  thermocouples 
experienced  temperature  fluctuations  on  the  order  of  -  10  yV. 
Therefore,  each  thermocouple  was  scanned  for  ten  seconds 
and  the  ten  readings  were  averaged  to  obtain  a  more  accurate 
measurement.   All  other  thermocouples  maintained  a  steady 
readout  with  only  1.0   uV  fluctuation.   The  quartz  crystal 
thermometer  appeared  to  operate  very  well  with  no  fluctuations 

Two  of  the  thermocouples  were  calibrated.   One 
thermocouple  was  made  from  the  beginning  of  a  spool  of 
copper-constantan  wire  and  one  was  made  from  the  end. 
All  other  thermocouples  were  fabricated  from  wire  on  this 
spool.   It  was  assumed  that  the  properties  of  the  copper 
and  constantan  do  not  change  along  a  given  section  of  wire 
for  any  given  spool.   Both  thermocouples  were  calibrated 
by  the  method  described  in  Appendix  E. 
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Figure  2.2   Photograph  of  Overall  System  Showing 
Data  Acquisition  System 
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Figure  2.6   Photograph  of   Cooling 
Water  System 
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III.   SYSTEM  OPERATION 

After  a  thorough  cleaning  using  the  procedures  described 
in  Appendix  F,  a  test  tube  may  be  installed  by  the  steps 
outlined  in  Appendix  D.   Each  system  start-up  should  be 
accomplished  by  the  procedures  described  in  Appendix  B. 
Once  the  system  has  reached  steady-state  conditions  (about 
30  minutes),  data  taking  for  a  given  test  tube  may  commence. 
During  each  data  run,  a  frequent  check  of  the  test  tube 
should  be  made  to  ensure  the  desired  condensation  mode: 
either  dropwise  or  filmwise.   When  the  tube  cleaning  procedures 
of  Appendix  F  are  utilized,  filmwise  condensation  conditions 
will  last  for  about  four  hours,  followed  by  mixed  filmwise 
and  dropwise  conditions.   Each  data  set  consisted  of  eight 
cooling  water  velocities  ranging  from  1.37  m/s  to  3.8-4  m/s 
through  the  test  section.   At  a  given  velocity  setting,  the 
flow  was  allowed  to  steady  out  for  two  minutes  before 
recording  temperatures.   The  computer  signalled  by  both 
audio  and  visual  means  when  the  system  was  ready  for  a  new 
data  Doint.   An  entire  data  set  was  recorded  in  AO    minutes. 
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IV.   DATA  ACQUISITION/REDUCTION 

A.  DATA  ACQUISITION  AND  STORAGE 

A  Hewlett-Packard  (HP)  3054.A  automatic  data  acquisition/ 
control  system  was  used  to  monitor  temperatures  from  the 
thermocouples  and  the  quartz  crystal  thermometers.   Figure  4..1 
shows  a  photograph  of  the  system.   This  system  included  an 
HP  34-97A  data  acquisition/control  scanner  and  an  HP  34.56A 
digital  voltmeter  with  a  resolution  of  1 00-nanovolts .   An 
HP  9826a  computer,  interfaced  with  the  data  acquisition/ 
control  system,  was  used  as  a  controlling  unit  and  provided 
storage  for  data.   Information  was  entered  through  the  key- 
board to  prompt  the  data  acquisition/control  unit  to  auto- 
matically scan  each  channel.   Channel  assignments  are  listed 
in   Table  1 .   These  raw  data  were  then  transferred  to  a 
computer  disk  under  a  user-specified  file  name  for  later 
reduction  to  usable  form.   The  ability  to  store  raw  data 
directly  enabled  these  data  to  be  reduced  at  any  time  and 
allowed  flexibility  for  changes  to  data-reduction  softx^/are. 

B.  DATA  REDUCTION 

Following  data  acquisition  for  each  data  point,  results 
were  computed  according  to  the  stepwise  procedure  outlined 
in  the  next  section,  and  were  then  printed  on  an  HP  6771 G 
thermal  printer.   Appendix  G  shows  an  example  of  a  represen- 
tative data  run.   Results  were  also  stored  in  a  user-specified 
plot  data  file  for  subsequent  plotting  using  the  program  PLOT. 

3/i 


C.   STEPWISE  SOLUTION  PROCEDURE 
1  .   Program  SIEDER 

a.  Compute  average  cooling  water  temperature. 

b.  Compute  average  wall  temperature. 

c.  Compute  cooling  water  velocity. 

d.  Compute  mass  flow  rate  of  cooling  water. 

e.  Compute  heat  transferred  to  cooling  water. 

f.  Compute  average  inside  wall  temperature. 

g.  Compute  LMTD. 

h.   Assume  fin  efficiency. 

i.   Compute  inside  heat-transfer  coefficient. 

j.   Compute  Nusselt  number. 

k.   Calculate  fin  efficiency  using  previously- 
calculated,  heat-transfer  coefficient. 

1.   Recalculate  heat-transfer  coefficient. 

Recalculate  Nusselt  number  and  compare  to  Nusselt 
number  found  in  j  and  iterate  if  not  within  ^%,         Figure  5.1 
shows  an  example  of  plotted  data  and  Appendix  G  shows  a 
listing  of  PLOT. 

2.   Program  NSFDRP 

a.  Compute  average  cooling  water  temperature. 

b.  Compute  cooling  water  velocity. 

c.  Compute  mass  flow  rate  of  cooling  water. 

d.  Compute  heat  transferred  to  cooling  water. 

e.  Compute  log  mean  temperature  difference. 

f.  Compute  overall  heat- transfer  coefficient  based 
on  outside  area. 


g.   Compute  wall  resistance  based  on  outside  area. 

h.   Compute  Reynolds  number  of  cooling  water. 

i.   Assume  fin  efficiency. 

j.   Compute  inside  heat-transfer  coefficient. 

k.   Calculate  cooling  water  temperature  rise. 

1.   Calculate  fin  efficiency  using  previously- 
calculated,  heat-transfer  coefficient. 

m.   Recalculate  heat-transfer  coefficient  and  iterate 
if  not  within  ^%    of  the  value  found  in  h. 

n.   Calculate  condensing  heat-transfer  coefficient 
from  Uq,  R,^  and  h^ . 

TABLE  I 

HP  34.97A  Channel  Assignments 

Channel  Assignment 

20  steam 

21  steam 

22  condensate 

23  room 
24.  room 

25  wall 

26  wall 

27  wall 

28  wall 

29  wall 

30  wall 
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V.   RESULTS  AND  DISCUSSIONS 

A.   INSIDE  HEAT-TRANSFER  COEFFICIENT 

Experimental  data  were  taken  at  atmospheric  pressure  by 
the  procedures  outlined  in  Chapter  III.   Twelve  data  sets 
were  taken  to  determine  the  inside  heat-transfer  coefficient. 
The  first  four  data  sets  were  utilized  to  test  the  data 
acquisition/reduction  program  SIEDER  and  the  middle  five 
data  sets  experienced  mixed  filwise  and  dropwise  condensa- 
tion conditions.   Data  sets  10-12  showed  filmwise  condensa- 
tion throughout  each  of  the  data  collection  sets.   Figure  5.1 
is  a  olot  of  data  taken  during  run  number  10.   Similar  results 
were  obtained  for  data  runs  11-12.   The  analysis  of  all 
data  showed  a  Sieder-Tate  coefficient  of  0.029-0.001  to  be 
representative  for  the  experimental  apparatus  (Table  II). 
The  Sieder-Tate  correlation  for  fully  developed  turbulent 
flow  has  a  leading  coefficient  of  0.027  (Ref.  16}.    Rose 
{Ref.  ^  I^]    shows  a  leading  coefficient  of  0.030  with  an 
L/D  ratio  of  17,    which  is  in  good  agreement  with  the  results 
of  this  thesis.   The  L/D  ratio  for  the  experimental  apparatus 
used  during  this  thesis  was  18,  well  below  that  for  fully 
developed  flow  {Ref.  16};  therefore  the  inside  heat-transfer 
coefficient  was  correspondingly  higher. 
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TABLE  II 
Sieder-Tate  Coefficients 

File  Ci 

10  .0291 

11  .0287 

12  .0287 

B.   OUTSIDE  HEAT-TRANSFER  COEFFICIENT 

Experimental  data  were  taken  at  atmospheric  pressure  by 
the  procedures  outlined  in  Chapter  III.   Four  data  sets  were 
recorded  to  detemine  the  outside  heat-transfer  coefficient 
using  the  program  NSFDRP  (Appendix  G)  to  reduce  the  raw 
data.   Figure  5.2  shows  a  plot  of  the  four  data  sets  along 
with  a  curve  showing  the  corresponding  Nusselt  prediction. 
All  of  the  data  lie  above  the  theoretical  curve.   This 
discrepancy  has  two  possible  explanations.   Either  dropwise 
condensation  and/or  vapor  shear  associated  with  a  vapor 
velocity  of  3  m/s  could  increase  the  condensation  heat 
transfer  coefficient.   The  effect  of  vapor  shear  has  been 
studied  by  many  investigators  including  Rose  as  described 
in  a  very  recent  report  {Ref.  18}.   Rose  reported  that  when 
vapor  velocity  was  increased  to  7  m/s  for  ref rigerant-1 1 3 » 
the  condensing  coefficient  increased  by  20^.   The  presence 
of  dropwise  condensation  significantly  raises  the  heat- 
transfer  coefficient,  sometimes  as  much  as  ten  times 
(Ref.  17}. 
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A  large  amount  of  scatter  occurred  in  the  recorded  data. 
This  situation  could  have  occurred  due  to  noncondensable 
gases  and  the  inability  to  regulate  system  pressure.   During 
normal  operation,  the  Mechanical  Engineering  Department 
air  compressor  (160  psi)  was  used  to  operate  the  air 
ejector.   During  the  condensation  heat  transfer  coefficient 
runs,  this  air  compressor  was  inoperative;  therefore,  house 
air  (50  psi)  was  used.   This  source  of  air  had  a  very  low 
capacity  and  fluctuated  greatly  during  each  data  run, 
perhaps  causing  varying  amounts  of  air  to  be  in  the  vicinity 
of  the  test  tube. 

Due  to  limited  and  lack  of  reliable  data,  very  little 
can  be  concluded  for  the  results  thus  far  for  the  condensing 
coefficient.   More  data  is  necessary  to  reach  any  final 
conclusions. 
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VI.   CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

1 .  An  experimental  apparatus  that  allows  the  study  of 
condensation  heat  transfer  of  steam  on  a  single,  horizontal 
tube  has  been  designed,  constructed  and  instrumented. 

2.  The  water-side  heat-transfer  coefficient  was 
established  using  the  Sieder-Tate  correlation  with  a  leading 
coefficient  of  0.029  -  0.001. 

3.  An  analysis  scheme  to  establish  the  condensing  heat- 
transfer  coefficient  has  been  outlined,  and  data  acquisition/ 
reduction  programs  have  been  written  and  tested. 

B.  RECOMMENDATIONS 

1.  To  prevent  leaking,  install  Swagelok  fittings  with 
Teflon  ferrules  into  the  dump  condenser  lines  penetrating 
the  stainless  base  of  the  dump  condenser  section. 

2.  Rig  suspension  cables  to  remove  the  dump  condenser 
section  by  attaching  them  in  the  ceiling  using  metal  studs. 

3.  Install  a  thermopile  at  the  outlet  of  the  test 
condenser  tube  as  a  second  means  of  measuring  the  cooling 
water  temperature  rise  across  the  test  section. 

/+.   Use  a  Gommutating  bridge  to  accurately  determine 
boiler  heater  resistance  over  the  full  range  of  power 
settings . 
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5.  Install  a  nitrogen  cold  trap  on  the  mechanical  vacuum 
pump, 

6.  Install  a  permanent  drain  line  on  the  cooling  water 
reservoir  to  replace  the  temporary  siphon  tube. 

7.  Replace  the  extension  wire  from  the  ice  bath  to  the 
data  acquisition  system  with  thermocouple-quality  copper 
wire . 

8.  After  recommendation  No.  1  above  is  completed,  check 
the  system  for  leak  tightness  under  vacuum  conditions. 

9.  Complete  experimentation  to  determine  the  condensing 
heat-transfer  coefficient  at  1  atmosphere  as  well  as  under 
vacuum  conditions. 
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APPENDIX  A 
SAMPLE  CALCULATIONS 

1  .   INSIDE  HEAT-TRANSFER  COEFFICIENT 

A  set  of  calculations  was  performed  to  verify  data  reduc- 
tion program  SIEDER.  One  data  point  was  selected  arbitrarily 
from  data  set  10. 

a.  Given  the  following  inlet  and  outlet  temperatures, 
compute  average  cooling  water  temperature. 

T^  =  23.9^'^C 

T^  =  26.32^0 

T,  =  (23.9^  +  26.32)/2  =  25.13°C 
b 

b.  Compute  average  wall  temperature. 


T   =  (T  ,+T  ,4-T  ^  +  T  ,+T  ^+T  .)/6  =  62.6^°C 
w      w1   w2   w3   W4   w5   wo' 


c.  Compute  water  velocity.' 

Flow  meter  reading  =  25$^  and  from  the  calibration 

curve,  V   =  4-.  5  ft/s  or  V   =  1.37  m/s. 
w  w 

From  Reference  16,  Table  A. 6  at  300  K  the  following 
properties  are  found: 
?r  =  5.83 

U^   =    855E-6   N-s/m^ 
C      =    U.^  79   kJ/Kg-K 
K^   =    613E-3  W/m-K 
v^   =    1.003E-3    m^/kg 

d.  Compute    mass    flow   rate    of    cooling   water. 

A    =      ^D^^/4 

m    =    V      A/v  =    0.1 73    kg/s 
w 

A5 


e.  Compute  heat  transferred  to  cooling  water. 
Q  =  i  Cp  (T^-T^) 

Q  =  1  721  W 

f.  Compute    average    inside   wall    temperature. 
T      =    Q    In    (D    /D.)    /2    IT   k^   L  Reference    17 

W  0        1  I 

T      =    2.16°C 
w 

T    .         T      -    0.5   AT 
Wl    =       w  w 

T    .    =    6l.56°C 

Wl 

g.  Compute  log  mean  temperature  difference. 

LMTD    =    (T„-T,  )/ln  [(T,  .-T,  )/(T    .-T^)] 
21  Lwil  wi2J 

h.   A  fin  efficiency  is  assumed  to  be  20^  for  first 
interaction. 

i.   Compute  heat-transfer  coefficient. 

h^    =    Qjir    D^     (L  +  L^  -x-Ti^+L2-';-n2)    LMTD 

h.    =    7772  W/m^-K 

j.   Compute  Nusselt  number. 

Nu  =  h.D.  /v 
1  1  ^f 

Nu    =    1  61     first    iteration 

k.       Calculate    fin    efficiency. 

P,    =    2^    D      =    0.1197    m 

1  o 

P^    =    2tt    D      =    0.1  00    m 

2  r 

A,    =    77    D       (D    -D.  )    =    0.00038    m^ 

1  0  0         1 

Ao    =    TT   D      (D    -D.  )    =    1  .6  S-/1   m^ 

2  r        r      1 


i^    =   /   h^    P^/k^A^ 


m^    =    79.7^ 


^2  =  ^^^rvv2 


^6 


m^    =    112.32 

n^    =    tanh      (m^    L^ ) /m      L 

n^    =    .2079 

n2    =    -2913 

1.   Recalculate  heat-transfer  coefficient. 

h.  =  7589.9  W/ra^-K 

m.       Recalculate   Nusselt    number   and    compare    to    previous 
calculated   value. 

Nu     =    157.24 

This  value  for  the  Nusselt  number  agrees  within  0.3%   of 
the  computer  generated  value  (Nu   =  156.7). 
2.   CONDENSATION  HEAT-TRANSFER  COEFFICIENT 

A  set  of  calculations  was  performed  to  verify  the  data 
reduction  program  NSFDRP.   One  data  point  was  selected  from 
data  run  1 . 

a.  Given  the  following  inlet  and  outlet  cooling  water 
temperatures,  compute  average  water  temperature. 

T^  =  30.06°C 

T^  =  32.53°C 

f^  =  (T^+T2)/2  =  31  .3°C 

T   =  96.7°C 
s 

b.  Compute  water  velocity. 

Flow  meter  reading  =  30^  and  from  the  calibration  curve 

V   =  1  .  64-  m/s 

w 

c.  Compute  mass  flow  rate  of  cooling  water. 

From  Reference  16,   Table  A.  6  at  304.K   the  following 
properties  are  found: 
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Pr   =    5.29 

U      =    0.781    E-3   N-s/ra^ 

C      =    4..1  78   kJ/kg-K 

k   =  0.62  W/ra-K  vw  =  1.005  E-3  m^/kg 

A   =  ttD.  ^/4. 

A   =  1  .267  E-^  m^ 

m   =  V   A/v 

w 

m  =  .2067  kg/s 

d.  Compute  heat  transferred  to  cooling  water. 
Q  =  2133  W 

e.  Compute  LMTD. 

LMTD  =  (T2-T^)/ln  [(Tg-T-,)/(Tg-T2)] 


LMTD  =  65.4-0  C 

f.   Compute  overall  heat-transfer  coefficient  based  on 
outside  area. 


A 


^D  L 
o 


U   =  Q/A   LMTD 
o    ^   c 

U   =  ^086. 71  W/m^-K 

g.   Compute  wall  resistance  based  on  outside  area. 

R   =  D   ln(D  /D.)/2  k  ;, 
m     o    ^01      cu 

R   =  1  .003  S-5  m^-K/W 

m 

h.   Compute  Reynolds  number  of  cooling  water. 

Re   =  V  ^  D./v. 
w     w   1   f 

Re   =  26535 

w 

i.   Assume  fin  efficiencies  of  n.^  =  0.20  and  r]^   =  0.24- 
and  assuming  (u/y  )  '   =1.0 


4.8 


j.   Compute  inside  heat-transfer  coefficient, 
h,  =  (k,,  C,/D,  )  Re„*^  Pr*^^^  (u/u  )'^^ 


w   1   1 


w 


w 


h,    =  8533.72  W/m  -K 


k.   Calculate  fin  efficiency  using  previously-calculated 

heat-transfer  coefficient  from  j. 

-1 


'1 


3.56  m 


m2  =  11 7.70  m 


-1 


n^  =  0.20 


r!2  =  0.2^ 


1.   Calculate  cooline;  water  rise. 


T   =  T,  +  AT   =  72  C 

WD        W 


From    Reference    16   at    34-5    K,    v      =    389S-6    N-S/ra 

w 


2 


(^/%)      =  1.1 

m.   Recalculate  heat  transfer  coefficient  and  iterate  if 
not  within  ^%    of  the  value  found  in  j. 
h.  =  9387  W/m^-K 


n.   Calculate  condensation  heat-transfer  coefficient. 


1 


o       U 


D  L 
o 


7_ -^ _  Yi 


h   =  10^05  W/m^-K 

This  value  for  the  condensation  heat-transfer  coefficient 
agrees  within  1 ^  of  the  computer  generated  value  (h    =  10550, 
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APPENDIX  B 
SYSTEM  STARTUP  PROCEDURES 

1.  Familiarize  all  valve  numbers  by  referring  to  Figure  2.1 

2.  Fill  boiler  with  distilled  water  to  a  level  4.  inches 
below  top  of  sight  glass. 

a.  Start  vacuum  pump  or  air  ejector. 

b.  Open  suction  line  supply  valve  (3). 

c.  Allow  vacuum  pump/air  ejector  to  run  until  1$  inches 
Hg  of  vacuum  is  attained. 

d.  Close  suction  line  supply  valve  (3). 

e.  Shut  down  vacuum  system, 

f.  Open  discharge  on  distilled  water  tank. 

g.  Open  distilled  water  supply  line  valve  (6). 

h.   Close  distilled  water  supply  line  valve  (6)  when 
boiler  is  filled  to  4-  inches  below  the  top  of  the 
sight  glass. 

3.  For  vacuum  operations,  start  vacuum  pump/air  ejector 
then  open  suction  line  supply  valve  (3)  until  desired 
pressure  is  reached.   Suction  line  supply  valve  may  be 
throttled  to  maintain  pressure. 

4-.   Energize  viewing  window  heater  and  adjust  rheostat  to 
110.   Open  air  supply  valve  (9)  about  5  turn.   The  air 
supply  may  require  further  adjustments  to  keep  viewing 
window  clear. 
5.   Open  dump  condenser  supply  valve  (2)  fully. 
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6.  Fill  cooling  water  reservoir. 

a.  Open  reservoir  stop  valve  (10). 

b.  Open  test  section  throttle  valve  (11). 

c.  Open  reservoir  fill  valve  and  allow  tank  to  fill  to 
about  101.6  mm  (4-  in)  from  the  top. 

d.  Close  reservoir  stop  valve. 

e.  Energize  cooling  water  circulation  pump.   The  switch 
is  located  above  the  pump. 

7.  Shut  the  following  power  supply  breakers: 

a.  Panel  p-5  switch  3. 

b.  Switch  3  on  side  of  control  panel. 

c.  Switch  1  on  front  panel. 

8.  Increase  boiler-  heater  voltage  to  a  maximum  of  200 
volts  during  warmup ;  about  15  minutes.   When  operating  under 
vacuum  conditions  use  a  lower  voltage  to  limit  vibration 

of  glass  piping. 

9.  As  steam  is  generated,  air  is  expelled  through  a  relief 
valve.   System  pressure  should  never  be  allowed  to  exceed 
10  psig. 

10.  Once  steam  reaches  condenser  test  section  (about  30 
minutes  following  startup),  full  power  operation  may  begin. 

11.  The  apparatus  should  be  allowed  to  steam  for  30  minutes 
prior  to  taking  any  data. 


51 


APPENDIX  C 
SYSTEM  SHUTDOWN  PROCEDURES 

1.  Decrease  boiler  heater  voltage  to  zero. 

2.  Open  all  three  circuit  breakers. 

3.  Secure  view  window  heater  rheostat  switch;  allow  air 
to  flow  for  about  15  minutes  longer. 

4..   Secure  cooling  water  circulation  pump. 

5.  Close  cooling  water  throttle  valve. 

6.  Close  dump  condenser  supply  valve. 

7.  If  in  use,  secure  vacuum  suction  supply  valve  followed 
by  vacuum  pump/air  ejector. 

8.  For  cleaning  purposes  only,  the  boiler  may  be  drained 
by  unscrewing  the  Swaglok  nut  housing  the  condensate  return 
thermocouple.   The  Teflon  ferrules  require  only  hand 
tightening. 
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APPENDIX  D 
TEST  SECTION  INSTALLATION  PROCEDURES 

1 .  Install  outlet  nylon  holder,  mixing  chamber  and  return 
line  onto  provide  6.35  mm  (0,2$  in)  diameter  bolts  and 
tighten, 

2.  Place  clean  test  tube  into  inlet  nylon  holder  and  care- 
fully slide  holder  and  test  tube  into  condenser  test  section 
snugly. 

3.  Align  test  tube  to  have  one  thermocouple  channel  vertical 
4-.   Carefully  slide  thermocouples  into  channels. 

5.  Ensure  wires  are  straight  and  lined  up  with  markings  on 
inlet  nylon  holder  and  tape  into  place. 

6.  Position  nylon  thermocouple  wire  retainer  over  wires. 

7.  Place  inlet  nylon  holder  over  end  of  test  tube  and 
tighten  all  bolts. 

8.  Energize  circulation  pump  and  check  for  leakage  around 
connections  both  inside  and  outside  test  section. 
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APPENDIX  S 
THERMOCOUPLE  CALIBRATION 

1 .   EQUIPMENT  USED 

a.  Thermocouple  wire 

Copper-constantan,  0.24-5  mm  (0.01  in)  Teflon  coated  wire 
was  used  for  all  thermocouples.  (Omega  Catalogue) 

b.  Calibration  bath 

A  Rosemount  Engineering   Co.  Model  91 3A  calibration  bath 
shown  schematically  in  Figure  A.I  was  used. 

1)  Heating:   Electrical 

2)  Cooling:   Liquid  Nitrogen 
Note: 

Once  a  desired  temperature  is  reached,  the  temperature 
is  held  constant  by  rapid  cycling  between  heating  and  cooling. 
The  manufacturer  rates  the  temperature  bath  fluctuation 
to  be  less  than  0.01  C.   Observations  during  the  calibra- 
tion procedure  showed  bath  temperature  fluctuation  to  be 
less  than  0.025°C  (1 .OyV) . 

c.  Thermocouple  readout 

An  HP  3054.A  Automatic  Data  Acquisition/Control  System 
with  resolution  of  0.1  uV  was  used  to  obtain  data. 

d.  Reference  Point 

A  reference  junction  was  placed  in  a  0.15  m  Dia  X  0.28  m 
high  Thermos  flask  filled  with  finely-crushed  ice. 
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e.   Temperature  measurement 

Mercury-in-glass  thermometers  with  a  resolution  of  O.I^C 
were  used.   A  total  of  four  thermometers  were  used  with  the 
following  ranges:   0-25,  25-54-,  50-76  and  76-10^°G. 
2.   PREPARATION 

a.  Procedure 

Two  thermocouples  were  prepared,  one  at  the  beginning 
and  the  other  at  the  end  of  a  reel  of  thermocouple  wire, 
using  the  following  procedure: 

1 )  The  Teflon  insulation  was  removed  for  a  length  of 
about  4-  nim  from  one  end  of  a  2  m  long  piece  of  wire 
and  a  thermocouple  bead  was  made  using  a  Dynatech 
Corporation  thermocouple  welder. 

2)  The  other  end  of  the  thermocouple  wire  was  soft 
soldered  to  a  pair  of  heavy  duty  copper  wires. 

3)  Heat  shrink  insulation  was  placed  on  the  soldered 
end. 

b.  Reference  point 

The  thermocouple  reference  junctions  were  placed  in  a 
5  cm  test  tube  and  then  into  a  thermos  flask  containing 
finely  crushed  ice  as  shown  in  Figure  A.I. 

c.  Thermometers 

Thermometers  were  completely  immersed  in  the  calibration 
bath  as  recommended  by  the  manufacturer. 

d.  Analysis 

A  short  computer  program  (TC_GAL)  was  written  to  accept 
the  thermocouple  readings  through  the  Hp  data  acquisition 
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system,  and  the  bath  temperature  through  the  keyboard.   This 
program  prints  all  data  as  well  as  stores  the  data  on  a 
computer  disk.   A  listing  of  the  computer  program  is  provided 
in  Appendix  G. 
3.   CALIBRATION  PROCEDURE 

a.  The  bath  temperature  was  set  at  about  15*^0. 

b.  A  constant  temperature  is  reached  when  rapid  cycling 
of  heating  and  cooling  occurs,  but  wait  three  minutes  to 
enter  data. 

c.  Enter  the  bath  temperatures,  as  measured  by  the 
mercury-in-glass  thermometer,  into  the  keyboard.   Immediately 
following  the  data  entry,  the  computer  will  read  the 
thermocouple  SMF  automatically  and  print  the  bath  temperature 
and  thermocouple  SMF  (yV). 

d.  When  the  computer  prompts  for  more  data,  increase 
bath  temperature  by  about  10  C  and  repeat  the  above  procedure 
up  to  about  95  C. 

e.  Repeat  the  above  procedure  for  decreasing  temperatures 
^.   CALIBRATION  CURVE 

a.  A  least-squares  technique  was  used  to  generate  a 

third  order  polynomial  in  the  form  of: 

2     3 

T  =  a.E+apS  +a-^S 

T  is  the  temperature  in  degrees  Celsius  and  E  is  the 
thermocouple  reading  in  microvolts. 

b.  Values  generated  for  the  coefficients  are: 
a^  =  0.02635 
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a^  =  -9.735  E-7 
a^  =  6.577  E-11 

c.  Figure  A, 2  is  a  sample  printout  of  calibration 
data. 

d.  Figure  A. 3  is  a  graphical  representation  of  calibra^ 
tion  data. 
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306.5 
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16  runs  uere  stored  in  file  CAL  DATA 


Figure  E.2   Calibration  Printout 
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APPENDIX  F 
TEST  TUBE  CLEANING  PROCEDURES 

Caution 

The  following  mixture  is  highly  toxic  and  very  irritant 
when  contacted  by  the  skin.   Be  very  careful  not  to  splash 
the  solution  in  any  way.   Wear  protective  gloves  and  eye 
protection  when  the  actual  cleaning  is  being  conducted. 

1 .  Ensure  the  surface  of  the  tube  is  smooth  by  placing 
in  lathe  and  polishing  with  copper  cleaner  (Brasso)  and  a 
clean  rag. 

2.  While  still  in  the  lathe,  wipe  completely  with 
acetone  followed  by  ethyl  alcohol. 

3.  Prepare  a  solution  of  equal  parts  of  50%    sodium 
hydroxide  solution  (commercially  prepared,  available  through 
MCB  Manufacturing  Chemists  Inc.,  Cincinnati,  OH)  and 

ethyl  alcohol.   About  4-  ounces  each  mixed  in  a  shallow 
stainless-steel  pan  is  sufficient.   The  sodium  hydroxide 
will  precipitate  out  of  solution  and  form  a  white  paste. 
4-.   Heat  the  mixture  to  about  80  C,  but  try  to  avoid 
spattering.   The  white  pasty  texture  os  the  solution  should 
now  dissolve  into  a  clear  liquid. 

5.  Completely  immerse  the  tube  into  the  mixture  and 
scrub  the  entire  surface  with  a  bristle  brush  (old  tooth- 
brushes work  fine). 

6.  Rinse  with  tap  water  followed  by  distilled  water. 
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7.  Allow  the  tube  to  remain  in  distilled  water  until 
ready  for  installation. 

8.  The  nylon  holders  should  also  be  cleaned  with  the 
mixture . 

9.  The  test  tube  should  be  installed  as  soon  as  possible 
after  cleaning. 
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APPENDIX    G 


COMPUTER  PROGRAM   LISTINGS 


tOO!  FILE   NAME:    TC_CAL 

110!  REVISED:        June    1 .    1983 

120? 

130  DIM   Emfd) 

140  PRINTER    IS    701 

150  BEEP 

ISO  INPUT  "ENTER  MONTH,  DATE  AND  TIME  (MM :DD :HH :MM:SS)" . DateS 

170  OUTPUT  709:"TD":DateS 

ISO  OUTPUT  709;"TD" 

190  ENTER  709;DateS 

200  PRINT  USING  " 1 2X  .""Month  .  date  and  t ime :"" , 1 4A" :DateS 

210  BEEP 

220  INPUT  "GIVE  A  NAME  FOR  DATA  FILE" .D_f i leS 

230  CREATE  BDAT  D_fileS.5 

240  ASSIGN  SjFile  TO  D_fileS 

250  J=0 

2S0  PRINT  "  " 

270  PRINT  USING  "I2X.""Bath  Temp     Emf(O)     Emfd) 

280  PRINT  USING  "12X.""  ( Deg  C>     (Micro  V)   (Micro  V) 

290  Repeat:  ! 

300  BEEP 

3i0  INPUT  "ENTER  BATH  TEMPERATURE  (DEG  F>",T_baLth 

320  T_bath=(T  bath-32.)/1 .8 

330  OUTPUT  709:"AR  AF20  AL2r' 

340  OUTPUT  722:"F1  R1  T1  Z1  FL1" 

350  FOR  1=0  TO  t 

36C  OUTPUT  709: "AS  SA" 

370  ENTER  722:Emf(I) 

380  Ecf  (I)=ABS(E(nf  (I))»10'~6 

390  NEXT  I 

400  PRINT  USING  "1 3X . 3D . DD . 7X .40 .D .5X ,4D . D" : T_bath ,Emf (*) 

410  OUTPUT  (iFile;T_bath,Efni(*) 

420  BEEP 

430  INPUT  "ARE  YOU  TAKING  MORE  DATA  ( 1 =YES . 0=NO>?" .Go_on 

440  J=J+1 

450  IF  Go_on=1  THEN  Repeat 

4bU  fcittP 

470  PRINT  "  " 

480  PRINT  USING  "12X.DD,""  runs  uere  stored  m  file  "" . I OA" ; J ,D_f i leS 

490  END 
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1000?  FILE  NAME:  NSFDRP 

1010  IREVISED:   23  MAY  1983 

1020  DIM  Emf(IO) 

1030  Di=.0127 

1040  Do=. 01905 

1050  Dr=. 015875 

1060  D3sp=.1524 

1070  Ax=PI*0ssp^2/4-PI*Do»L   !  TO  BE  MODIFIED 

1080  L=. 13335 

1090  LI =.060325 

1100  L2=. 034925 

1110  Ll=Ll+(Do-Di)/4 

1120  L2=L2+(Dr-Di)/4 

1130  Ci=.029 

1140  Kcu.=  385. 

1150  R(n  =  Do*L0G(Do/Di)/(2*Kcu) 

1160  PRINTER  IS  701 

1170  CLEAR  709 

1180  BEEP 

n90  INPUT  "ENTER  MONTH.  DATE  AND  TIME  (MM:DD :HH:MM:SS)" . DateS 

1200  OUTPUT  709:"TD":Date$ 

1210  iDUTPUT  709:"TD" 

1220  ENTER  709:Date$ 

1230  PRINT  "  Month,  date  and  tine  :": DateS 

1240  BEEP 

1250  INPUT  "ENTER  INPUT  MODE  ( 1 =3054A  .2  =  FILE)" . Im 

1260  IF  Im=1  THEN 

1270  BEEP 

1280  INPUT  "GIVE  A  NAME  FOR  THE  RAW  DATA  FILE" .D_f i le$ 

1290  CREATE  BDAT  D_fileS,10 

1300  ELSE 

1310  BEEP 

1320  INPUT  "GIVE  THE  NAME  OF  THE  EXISTING  DATA  FILE" .D_f i leS 

1330  PRINT  "  " 

1340  PRINT  USING  "12X.""The  follouing  analysis,  uas  performed  for  data  in  file 

".10A":D_f ileS 

1350  BEEP 

1360  INPUT  "ENTER  THE  NUMBER  OF  RUNS  STORED"  .Nmn 


i  o 


370  END  IF 


OOl 


D 


EEP 


1390  INPUT  "GIVE  A  NAME  FOR  PLOT  DATA  FILE" .P_f i leS 

1400  CREATE  BDAT  P_file£.5 

1410  ASSIGN    oiFiie    TO    D_fileS 

1420  ASSIGN  SFilep  TO  P_file$ 

1430  J=0 

1440  Repeat:? 

1450  J=J+1 

1460  IF  Im=1  THEN 

1470  BEEP 

1480  INPUT  "ENTER  PLOWMETER  READING". Fm 

1490  OUTPUT  709:"AR  AF20  AL30" 

1500  OUTPUT  722;"FI  Rl  T1  Z1  FLl" 

1510  OUTPUT  709: "AS  SA" 

1520  ENTER  722:Bpv 

1530  FOR  1=0  TO  10 

1540  OUTPUT  709: "AS  SA" 

1550  IF  I>4  THEN 

1560  Se=0 

1570  FOR  K=0  TO  10 
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1580  ENTER  722;E 

1590  Se=Se+E 

1600  NEXT  K 

1610  Emf<I>=ABS(Se/!0)*1 .E+6 

1620  ELSE 

1630  ENTER  722  :E 

1640  Emf <I)=ABS(E>»1 .E+6 

1650  END  IF 

1660  NEXT  I 

1670  ENTER  722:Emf<I) 

1680  OUTPUT  713:"T1R2E" 

1690  WAIT  2 

1700  ENTER  713:T1 

1710  OUTPUT  713:"T2R2E" 

1720  WAIT  2 

1730  ENTER  7 1 3 : T2 

17A0  IF  J=1  THEN 

1750  BEEP 

1760  INPUT  "ENTER  MANOMETER  READING  (mm  Hg)",Phg 

1770  BEEP 

1780  INPUT  "ENTER  HEIGHT  OF  MANOMETER  WATER  COLUMN" .Puater 

1790  END  IF 

1800  ELSE 

1310  ENTER  ?File:Eraf(»),Fm.T1  .T2.Phg.P.iiater,Bpv 

1820  END  IF 

1830  Tsteam=0 

1840  FOR  1=0  TO  1 

1850  Tstea;n  =  Tsteani+.5*FNTvsv(Emf  (I)) 

1860  NEXT  I 

1870  Tu»m  =  0. 

1880  FOR  1=0  TO  5 

1890  Tij(I)=FNTv/sv<Emf(I+5)) 

1900  Tijm=Tum  +  Tuj(I) 

1910  NEXT    I 

1920  Tun  =  Tijm/5 

1930  Tcon  =  FNTvysv(Emf  (  10)) 

1940  Psa.t  =  FNPvst(Tsteajn) 

1950  Ptest=(Phg+Puater/13.6)*133.322 

1960  IF   J=1    THEN 

1970  ^>'st  =  FNVvst(Tsteam) 

1980  Ppng=(Ptest-Psat)/Ptest 

!990  Ppst=1-Ppng 

2UU0  M+ng  =  Ppng/(287*<Tsteani-273.  1  5  )  /  v  Vst  »Ptest ) +Ppng) 

2010  Vfng=Mfng/(1 . 608- . 608»Mf ng) 

2020  Mfng=Mfng*IOO 

2030  Vfng=Vfng*100 

2040  BEEP 

2050  PRINT  "  •• 

2060  PRINT  USING  "12X, ""Measured  pressure  =  "".D.3D 

E.""  (Pa) :Ptest 

2070  PRINT  USING  "12X , ""Pressure  corresponding  to  measured  steam  temp  =  "",D.3D 

E.  ""  (Pa) :P3at 

2080  PRINT  USING  "1 2X .""Noncondensable  gas  concentration  ="".D.D.""  ( 

Vol  •/.) :Vfng 

2090  PRINT  USING  "12X . ""Noncondensable  aas  concentration  ="".DD.D.""( 

Mass  X) :Mfng 

2^00  if   Mfng>.5  THEN 

2110  BEEP 

2120  PRINT  "  " 

2130  IF  Im=1  THEN 
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2T40  BEEP 

2150  PRINT  ■•  " 

2!60  PRINT  USING  "1  OX  . '"•Energi  ze  the  vacaum  system  

2170  BEEP 

2130  INPUT  "OK  to  accept  the  present  ran  ( 1 =YES, 0=NO)?" .Ok 

2190  IF  Ok=0  THEN 

2200  BEEP 

2210  DISP  "NOTE:  THE  PRESENT  DflTft  RUN  WILL  BE  DISCARDED?!  " 

2220  WAIT  5 

2230  GOTO  1460 

2240  END  IF 

2250  END  IF 

2260  END  IF 

2270  END  IF 

2280  IF  Im=l  THEN  OUTPUT  SFi  le  ;Emf  (*>  ,Fn.  T  1  .  T2  .Phq  .P.jater  .Bps 

2290!  ANALYSIS  BEGINS 

2300  Tavq=(T1+T2)».5 

2310  Cpu=FNCpu<Tavg) 

2320  Rho«j=FMRhou(Tavg) 

2330  Mf  =  Fm*.0245T. 3048^3/100 

2340  Hd=nf*Rhou 

2350  Vui  =  Mf/<PI*Dr2/4) 

2360  Q=Md*Cpu*<T2-T1) 

2370  Qp=0/(PI*Do»L) 

2380  Tijo  =  Tujm  +  Qp*Rm*  .5 

2390  Dtf=Tstean-Tuo 

2400  Kui  =  FNKu(Tavg) 

2410  Mau  =  FNMuui<Tavg) 

2420  Retj  =  Rho.j*Vij*Di/Mau 

2430  Pru=FNPru(Tavg) 

2440  Fe1=0. 

2450  Fe2=a. 

2460  Cf=1. 

2470  Hl  =  K.J*Cl/Di*Reu»^3*Pr(J^3333»Cf 

2480  Dt=Q/(PI*Dx*(L+L1*Fe1+L2*Fe2)*Hi) 

2490  Cfc=(:iuu/FNIiuu(Tavg  +  Dt))  '.14 

2500  IF  ABS((Cfc-Cf)/Cfc)>.01  THEN 

2510  Cf=(Cf+Cfc)*.5 

2520  GOTO  2470 

2530  END  IF 

2540  P1=PI*(Di+Do) 

2550  AI=<Do-Di)*PI*(Dt+Do)*.5 

2bb0  ni  =  (Mi*P1/(Kcu*A1  ))'"  .5 

2570  P2=PI*(Di+Dr) 

2580  A2=<Dr-Di)*PI*<Di-t-Dr>*.5 

2590  M2=(Hi«P2/(Kca*A2>)  \5 

2600  Lmtd=(T2-Tl  >/LOG(  (  Tsteajri-T1  )/(  T3team-T2) ) 

2510  'Jo  =  0/(Lmtd*PI*Oo*L) 

2620  Fe1=^NTanh(M1*L1)/(M1*L1> 

2630  Fp2  =  FNTanh<fi2*L2)/(M2*L2) 

2640  Ho=1  /( 1  /Uo-Do*L/(Di*(L+Ll  *Fe1  +L2*Fe2)*Hi)-Rnj> 

2650  Dtc=0/(PI*Di*(L+L!*Fe1+L2*Fe2)*Hi) 

2660  IF  ABS((Dtc-Dt)/Dtc)>.01  THEN  2470 

2670  Troom=FNTvsv((Emf<3)+Emf(4))».5> 

2680  PRINT  "UQ=";Uo 

2590  rios  =  Q/<PI*Do*L*(Tsteani-Tuio)) 

2700  PRINT  "HO_STAR=";Hos 

2710  Hfg  =  FMHfg<Tsteain) 

2720  Tf  ilm=(Tsteajn+lwo)».5 

2730  Kf  =  FNKuj(Tfilm) 
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2740  Rhof  =  FNRhouj(Tf  ilm) 

2750  Maf=FNMuw(Tf ilm) 

2760  Hnu=.725*(Kf  •3*Rhof ^2*9.81*Hfg/(Muf*Do-Dtf))^.25 

2770  Hpq=.651*Kf*(Rhof'~2*9.81»Hfg/(Maf*Do»Qp))^.3333 

2780  PRINT  ••  " 

2790  PRINT  USING  ■•12X.— Water  velocity 

2800  PRINT  USING  "1 2X . ""Reynolds  nanber 

2810  PRINT  USING  "12X  ,  ""Inside  heat-tran  coef 

2820  PRINT  USING  "12X.""Heat  flux 

2830  PRINT  USING  "12X . ""Outside  heat-tran  coef 

2840  PRINT  USING  "1 2X . ""Nussel t  coefficient 


.Z.DD.""  (m/S) ;Vu 

,5D.D";Reuj 

,50. D.""  <N/(n-2-K) ;Hi 

.Z.5DE.""  (W/m"2) :Qp 

.50. D.""  (W/m^2-K) :Ho 

,5D.D.""  <U/n'2-K) ;Hnu 


2850  PRINT  USING  "12X . 1 2X , ""Nus  coef  (from  heat  flux)  =  ""  .5D>D ,""(W/m ■2-K)' 

Hqp 

2860  OUTPUT  '^Fi  lep  :0p  .Hos  .Hnu 

2370  IF  Im=1  THEN 

2880  BEEP 

2890  INPUT  "ARE  YOU  TAKING  MORE  DATA  ( 1 =YES,0=NO)?" ,Go_on 

2900  IF  Go_on=1  THEN  Repeat 

2910  ELSE 

2920  IF  J<Nrun  THEN  Repeat 

2930  END  IF 

2940  IF  Im=1  THEN 

2950  BEEP 

2960  PRINT  USING  "12X,""N0TE:  "",DD,""  data  runs  were  stored  in  file  "",10A";J, 

D_f ileS 

2970  END  IF 

2980  BEEP 

2990  PRINT  "  " 

3000  PRINT  USING  "12X,""N0TE;  "".DD,""X-Y  pairs  uere  stored  in  plot  data  file  " 

".10A":J.P_f ileS 

3010  ASSIGN  ?File  TO  * 

3020  END 

3030  DEF  FNPvstdsteam) 

3040  DIM  K(8) 

3050  DATA  -7.691234564.-26.08023696.-158.1706546.64.23285504,-113.9646225 

3060  DATA  4  . 1 671 1 732 .20 .9750676 , 1 .E9 ,5 

3070  READ  K(*) 

3080  T=<Tsteam+273.15)/647.3 

3090  Sujn  =  0 

3100  FOR    N=0    TO   4 

3110  S>am  =  S.jun+K(N)*<l-F)  ^(N+1) 

3120  NEXT   N 

3130  Br  =  SujT»/(T*(1rK<5)>(  i-T)  :K(G)  >^(  1 -T)  -2)  >-( ! -T) /(.<(  7)*<  1 -T>  ^2+<(8>> 

3140  Pr=EXP<Br) 

3150  P=22120000»Pr 

3150  RETURN  P 

3170  FNEND 

3180  DEF  FNHfg(T) 

3190  Hfq=2497.7389-T»(2.2074+T»( 1 . 7079E-3-2 .8593E-6> ) 

3200  RETURN  Hfg*1000 

3210  FNEND 

3220  DEF  FNMuu(T) 

3230  Mu=I .57609473E-3-T*(3.51 198576E-5-T*<3.5835816E-7-1 . 3655361 15E-9*T) ) 

3240  RETURN  Mu 

3250  FNEND 

3260  DEF  FNVvst(T) 

3270  W=58. 4525538- T*<1 .5I508776-T*( . 01 372746585-T-4 .253667 1 1E-5) ) 

3280  RETURN  V 

3290  FNEND 

3300  DEF  FNCpij<T) 
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3310  Cp.j=4.21120858-T»<2.26826E-3-T*(4.42361E-5+2.71428E-7»T)) 

3320  RETURN  Cpu*1000 

3330  FNEND 

3340  DEF   FNRhouj<T> 

3350  Ro=999.52946+T*( .01269-T*<5.482513E-3-T*1 .234147E-5)) 

3360  RETURN  Ro 

3370  FNEND 

3380  DEF  FNPnj(T) 

3390  Pru=10'<l  .  09976605-T*< 1 .3749326E-2-T*<3 .968875E-5-3. 45026E-7»T) ) ) 

3400  RETURN  Pru 

3410  FNEND 

3420  DEF  FNKu(T) 

3430  Kij=.5b25894+T*<2.2964546E-3-T*<l .509766E-5-4 . 0581552E-8*T) ) 

3440  RETURN  Ku 

3450  FNEND 

3460  DEF  FNTanh(X) 

3470  P=EXP(X) 

3480  0=EXP<-X) 

3490  Tanh=(P+Q)/(P-Q) 

3500  RETURN  Tanh 

3510  FNEND 

3520  DEF  FNTvsv(V) 

3530  T=V»( .02517334415-V*(9.2447859E-7-W*6.0746b42E-11)) 

3540  RETURN  T 

3550  FNEND 

3560  DEF  FNHf<T> 

35  70  Hf=T*(4.203849-T*(5.88132E-4-T*4.55l60317E-6)) 

3580  RETURN  Hf*1000 

3590  FNEND 
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1000f  FILE  NAME:  SIEDER 

1010!  REVISED:   May  23.  1983 

1020  DIM  Emf(IO) ,Tu<5> 

1030  Kca=385 

1040!  Assign  Geometric  Variables 

1050! 

1060  Di=.0127     ?Inside  Diameter 

1070  Do=. 01905    !Outside  Diameter 

1080  Dr=. 015875   IQutlet  End  Diaineter 

1090  L=. 13335     'Condensing  Length 

MOO  L1=. 060325   ! Inlet  End  "fin"  Length 

1110  L2=. 034325   !Oatlet  End  "fin"  Length 

1120  PRINTER  IS  701 

1130  BEEP 

IMO  CLEAR  709 

1!5G  INPUT  "ENTER  MONTH,  DATE  AND  TIME  (MM:DD :HH :MM:SS)" ,B$ 

1150  OUTPUT  709;"TD":BS 

t 170  Series: ! 

1180  OUTPUT  709:"TD" 

M90  ENTER  709:AS 

1200  PRINT  USING  "1 2X  .  "".Month .  date  and  time:  "".MA":  AS 

1210  BEEP 

1220  INPUT  "ENTER  INPUT  MODE  ( 1  =3054A ,2  =  FILE)"  ,  Im 

1230  IF  Im=1  THEN 

1240  BEEP 

1250  INPUT  "PROVIDE  NAME  FOR  THE  DATA  FILE" . D_f i leS 

1260  CREATE  BDAT  D_fileS,10 

1270  ELSE 

1280  BEEP 

1290  INPUT  "PROVIDE  NAME  OF  THE  DATA  FILE" .D_f i le$ 

1300  BEEP 

1310  INPUT  "ENTER  THE  NUMBER  OF  RUNS  STORED". Nrun 

1320  PRINT  USING  "12X,""The  foliouing  analysis  was  performed  for  data  in  file 

",10A":D_fileS 

1330  END  IF 

1340  BEEP 

1350  INPUT  "PROVIDE  NAME  FOR  PLOT  DATA  FILE".PlotS 

1360  CREATE  BDAT  Plots, 5 

1370  ASSIGN    2>File    TO    D_fileS 

1380  ASSIGN  (5Filep  TO  Plots 

1390  J=0 

izion  9x3  =  0 

UIO  Sxy  =  0 

1420  IF  Im=1  THEN 

1430!  READ  DATA  THROUGH  DATA  ACQUISITION  SYSTEM 

1440!  IF  THE  INPUT  MODE  (Im)  =  1 

1450  BEEP 

1460  INPUT  "ENTER  FLOWMETER  READING". Fm 

1470  OUTPUT  709:"AR  AF20  AL30" 

1430  OUTPUT  722;"F1  R1  T1  Z1  FLl" 

1490  FOR  1=0  TO  10 

1500  OUTPUT  709: "AS  SA" 

1510  IF  I>4  THEN 

1520  Se=0 
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1530  FOR  K=0  TO  9 

1540  ENTER  722 ;E 

1550  Se=Se+E 

1560  NEXT  K 

1570  Emf <I)=ABS(Se/10) 

1580  ELSE 

1590  ENTER  722 :E 

IbOO  Enf<I)=ABS<E) 

1610  END  IF 

1620  NEXT  I 

1630  OUTPUT  713;"T1R2E" 

1640  WAIT  2 

1650  ENTER  713;T1 

1660  OUTPUT  713;"T2R2£" 

1670  WAIT  2 

1630  ENTER  713:T2 

1690  ELSE 

1700!  READ  DATA  FROM  USER-SPECIFIED  FILE  IF 

1710!  INPUT  MODE  dm)  =  2 

1720  ENTER    jjFi  le  :Emf  (*)  ,  Tl  ,T2  ,Fm 

1730  END    IF 

1740!  Compute  Average  Balk  Water  Temperature 

1750  Tavq=(T1+T2)*.5 

1760!  Compute  Average  Wall  Temperature 

1770  T'jall  =  0 

1780  FOR  1=5  TO  10 

1790  Tu'<I-5>=FNTvsv(Emf(I)) 

1800  Tijall  =  Tuall+Tui(I-5) 

1810  NEXT  I 

1820  T.jall  =  Tuiall/6 

1330!  Compute  Thennophysical  Properties 

1840  Cpij  =  FNCpu<Tavg) 

1850  Rhou  =  FNRhoiii(Tavg) 

1860  Kij  =  FNKu(Tavq) 

1870  Mf=Fm*.0245f*.3048'3/100  !Voiume  Flowrate  of  Water  (m-3/s> 

1830  Md=Mf*Rhou  !Mass  Flourate  of  Water  (kg/s) 

''890  Vij=Mf/(DI*Di  2/4)  IWater  v-'eiocity  (n/s) 

1900  Q=Md*Cpij*d2-T1)  !Heat  Transferred  to  Cooling  Water  (W) 

1910  Dtij  =  Q*LLiG(Do/Di)/(2*PI*Kcu*L)  !Temp  Drop  Across  Tube  Wall  (Deg  C) 

1920  Twail  =  Tijall-Dttj*.5 

1930  Lmtd=(T2-Tl ) /LOG( ( Tuai 1-T 1 )/( Tuai 1-T2) ) 

1940  P1=PI*2»Do  !Heat-Transfer  Periineter  At  Inlet 

1950  P2=PI*2*Dr  !Heat-Transf er  Perimeter  At  Exit 

i560  h1=(Do-Di>*PI*Do  !Heat -Transfer  Area  At  Inlet 

1970  A2=<Dr-Di)*PI*Dr  !Heat-Transf er  Area  At  Exit 

1980  Hi=0/(PI»Di*L*Lmtd) 

1990  Ml=(Hi*Pl/(Kcu*Al ))  \5 

2000  M2=(Hi*P2/(Kcu*A2))^.5 

2010  Fel=FNTanh<M1*Ll )/fMl*Ll >  !Fin  Efficiency  At  Inlet 

2020  Fe2=FNTanh(M2*L2)/(M2*L2)  !Fin  Efficiency  At  Exit 

2030  Hic=Q/(PI*Di*(L+Ll*Fel+L2*Fe2)*Lmtd) 

2040  IF  ABS((Hi-Hic)/Hic)>.Ol  THEN 

2050  Hi=(Hic+Hi)*.5 

2060  GOTO  1990 

2070  END  IF 

2080  PRINT   ••    •• 

2090  PRINT   USING    '•12X .  ""Posi  t  ion    nujnber  :         1-  2  3  4  5 

6 

2100  PRINT  USING  "1  2X  .  ""Wal  1  temperature  (Deg  C)  :  •'"  .5(  DD  .  DD  .  1  X)"  ;  Tu<*) 

2110  PRINT  USING  "I  2X  ,  ""Average  uai  1  temperature  =  "",DD.DD,""  (Deg  O ;T<jali 
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2120 

2130 

2M0 

2150? 

2160 

2170 

2180 

2190 

2200 

2210' 

2220! 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310! 

2320! 

2330 

2340 

2350 

2350 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

n.D_f 

■<c  '.  r> 

2550 
2560 
2570 
2530 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2650 
2670 
2630 
2690 
2700 


=  ••".DD.DD, 
'.DD.DD 
.DD.DD, 


(Deg  C) 

(Deg  C) 

(Deg  C) 


••".Z.DD."" 
"••,5D.D";X 
"".4D.DD";Mu 


(m/S) ;Vu 


PRINT  USING  "12X. —Inlet  uater  temperature 

PRINT  USING  "12X, ""Outlet  water  temperature  = 

PRINT  USING  "12X. ""Log-mean- temp  difference  = 

CALCULATE  THE  NUSSELT  NUMBER 

Nu=Hic*Di/Kui 

Re=Rhoij*Vij*D  i  /FNMu<  Tavg ) 

Cf=<FNMu(Tavg)/FNMu<Tuall))^.14 

Pru=FNPru(Tavg) 

X  =  Re^3»Prij  ■  .3333*Cf  !Compute  Sieder-Tate  Parajneter 

COMPUTE  COEFFICIENTS  FOR  THE  LEAST-SQUARES-FIT 

STRAIGHT  LINE 

PRINT  USING  "12X. ""Water  velocity 

PRINT  USING  "12X,""Sieder-Tate  parameter 

PRINT  USING  "12X.""NusGelt  number 

OUTPUT  f5,Filep:X.Nu 

Sx=Sx+X 

Sy=Sy+Nu 

Sxs=Sxs+X»X 

Sxy=Sxy+X»Nu 

STORE  RAW  DATA  IN  A  USER-SPECIFIED  FILE  IF 

INPUT  MODE  dm)  =  1 

IF  Im=1  THEN  OUTPUT  C«iFi  le  ;Emt  (»)  ,  T1  ,  T2,Fm 

BEEP 

J  =  J+1 

IF  In=1  THEN 

INPUT  "ARE  YOU  TAKING  MORE  DATA  < 1 =YES , 0=NO)?" ,Go_on 

N  r  un  =  J 

IF  Go_oTi=1  THEN  1420 

ELSE 

IF  J<Nrun  THEN  1420 

END^IF 

Ci=Sxy/Sxs 

PRINT  "  " 

PRINT  USING  "12X.""Sieder-Tate  Coefficient 

Ac  =  0. 

PRINT  "  " 

PRINT  USING  "12X. ""Least-Squares  Line: 

PRINT  USING  "14X. ""Slope        =  ""  ,MD  .5DE ," :Ci 

PRINT  USING  "14X, ""Intercept    =  "" ,MD  .5DE , "  ; Ac 

IF  Im=1  THEN 

BEEP 

PRINT   USING    "12X.""N0TE:    "",D0.""    data   runs   uiere 

ileS 
r-  M  n    T  ir 

ASSIGN   ^File   TO   * 

ASSIGN    i«Filep    TO   » 

END 

DEF   FNRho(j(T) 

Ro= 1005. 35724- T»(. 774489- T*< 2. 262453E-2-T-3.03304E-4)) 

RETURN  Ro 

FNEND 

DEF  FNPru(T) 

Pr=Mr  (1 .09976605-T*( . 0 1 3759326-T*(3 .968875E-5-3 . 45026E-7-T) ) > 

RETURN  Pr 

FNEND 

DEF  FNMu<T) 

Mu=1 .57609473E-3-T»<3.5n98576E-5-T*(3.5835816E-7-T»! .365586 1 15E-9> ) 

RETURN  Mu 

FNEND 

DEF  FNKu(T) 


T1 
T2 
Lmtd 


,D.4D":Ci 


tored  in  file  "".3A";Nru 
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2710  Kij=. 57218350^^77+1  .52770121209E-3*T 

2720  RETURN  Kw 

2730  FMEND 

2740  DEF  FNTvsv(Emf> 

2750  V=Emf*10^6 

2760  T=^y*< .02G17334416-V»(9.2447859E-7-V*6.0746642E-11)> 

2770  RETURN  T 

2780  FNEND 

2790  DEF  FNCpuCT) 

2800  Cpu)=<4.21120853-T*<2.26326E-3-T*(4.4236IE-5+T*2.71428E-7)))»l000 

2810  RETURN  Cpu 

2820  FMEMD 

2830  DEF  FNTanh(X> 

2840  P=EXP(X) 

2850  0=EXP(-X) 

2860  Tanh=(P+Q)/(P-Q) 

2870  RETURN  Tanh 

2880  FNEND 
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000!  FILE  NrtME:  PLOT 

010  PRINTER  IS  705 

020  BEEP 

030  INPUT  "ENTER  MINIMUM  AND  MAXIMUM  X-VALUES" ,Xmin .Xmax 

OAO  BEEP 

050  INPUT  "ENTER  MINIMUM  AND  MAXIMUM  Y-VALUES" , Ymin, Ynax 

OSO  BEEP 

070  INPUT  "ENTER  STEP  SIZE  FOR  X-AXIS" .Xstep 

080  BEEP 

OSO  INPUT  "ENTER  STEP  SIZE  FOR  Y-AXIS" , Ystep 

100  BEEP 

no  PRINT  "IN:SP1:IP  2000,2000.8000.7000;" 

120  PRINT  "SC  0.100.0.100:TL  2.0;" 

130  Sfx=iaO/(Xnax-Xmin) 

140  Sfy  =  100/<Ymax-Yniin> 

150  PRINT  "PU  0.0  PD" 

150  FOR  Xa=Xmin  TQ  Xmax  STEP  Xstep 

170  X=<Xa-X(nin)*Sfx 

180  PRINT  "PA";X.".0;  XT:" 

190  NEXT  Xa 

200  PRINT  "PA  100.0:PU:" 

210  PRINT  "PU  PA  0.0  PD" 

220  FOR  Ya=Ymin  TO  Ymax  STEP  Ystep 

230  Y=(Ya-Ymin)*Sfy 

240  PRINT  "PA  0.";Y,"YT" 

250  NEXT  Ya 

250  PRINT  "PA  0.  100  TL  0  2" 

270  FOR  Xa=Xmin  TO  Xmax  STEP  Xstep 

280  X=(Xa-Xmin)»Sfx 

290  PRINT  "PA";X,".100;  XT" 

300  NEXT  Xa 

310  PRINT  "PA  100.100  PU  PA  100,0  PD" 

320  FOR  Ya=Ymir.  TO  Ymax  STEP  Ystep 

330  Y=(Ya-Ymin)*Sfy 

340  PRINT  "PD  PA  100.",Y,"YT" 

350  NEXT  Ya 

360  PRINT  "PA  100.100  PU" 

370  PRINT  "PA  0.-2  SR  1 .5,2" 

380  FOR  Xa=Xmin  TO  Xmax  STEP  Xstep 

390  X=(Xa-Xrnn)*Sfx 

400  PRINT  "PA";X.".0:" 

41C  PRINT  "CP  -2,-1 ;LB";Xa;"" 

420  NEXT  Xa 

430  PRINT  "PU  PA  0.0" 

440  FOR    Ya=YtDin    TO    Ymax    STEP    Ystep 

450  Y=(Ya-Ymin)»Sfy 

460  PRINT  "PA  0.":Y."" 

470  PRINT  "CP  -4.-.25;LB";Ya;"" 

480  NEXT  Ya 

490  BEEP 

500  INPUT  "ENTER  X-LABEL" .XlabeiS 

510  BEEP 

520  INPUT  "ENTER  Y-LABEL" . YlabelS 

530  PRINT  "SR  1.5.2:PU  PA  50.-10  CP" : -LEN(XlabelS)/2 : "0 :LB" ; XlabelS:"" 

540  PRINT  "PA  -11.50  CP  0 . " ; -LEN< Y IabelS)/2*5/6 ; "DI  0 . 1  :LB" ; YlabelS : "" 

550  PRINT  "CP  0,0" 

550  Repeat: ! 

570  BEEP 
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1580  INPUT  "ENTER  THE  riAME  OF  THE  DATA  FILE"' ,D_f  i  leS 

1590  ASSIGN  @File  TO  D_file$ 

1600  BEEP 

1610  INPUT  "ENTER  THE  BEGINNING  RUN  NUMBER". Md 

1520  BEEP 

1630  INPUT  "ENTER  THE  NUMBER  OF  X-Y  PAIRS  STORED" .Npai rs 

1540  BEEP 

1550  INPUT  "SELECT  A  SYMBOL  FOR  THE  PLOTTER  < 1 =* ,2=+ .3=c .4=o .5=^ )" ,Sy 

1560  PRINT  "PU  DI" 

1570  IF  Sy=l  THEN  PRINT  "SM»" 

1580  IF  Sy=2  THEN  PRINT  "SM+" 

1690  IF  Sy=3  THEN  PRINT  "SMc" 

1700  IF  Sv=4  THEN  PRINT  "SMo" 

1710  IF  Sy=5  THEN  PRINT  "SM'" 

1720  IF  Md>Npairs  THEN 

1730  FOR  1=1  TO  (Md-1) 

1740  ENTER  i*File;Xa.Ya 

1750  NEXT  I 

1760  END  IF 

1770  FOR  1=1  TO  Npairs 

1780  ENTER  §Fiie;Xa.Ya 

1790  X=(Xa-Xmin>*Sfx 

1800  Y=(Ya-Ymin)»Sfy 

1810  PRINT  "PA".X,Y."" 

1820  NEXT  I 

1830  BEEP 

1840  ASSIGN  AFile  TO  * 

1850  INPUT  "DO  YOU  HAVE  MORE  DATA  TO  BE  PLOTTED  ( 1 =YES, 0  =  NO) '?" ,Go_on 

1860  IF  Go_on=l  THEN  Repeat 

1370  PRINT  "PU  SM" 

1880  BEEP 

1890  INPUT  "DO  YOU  LIKE  TO  DRAW  A  STRAIGHT  LINE?".Go_on 

1900  IF  Go_on=1  THEN 

1910  BEEP 

1920  INPUT  "ENTER  THE  SLOPE". SI 

1930  BEEP 

1940  INPUT  "ENTER  THE  INTERCEPT" , Ac 

1950  FOR  Xa=Xmin  TO  Xmax  STEP  (Xmax-Xmin) 

1960  Ya=Ac+Si*Xa 

1970  Y=(Ya-Ymin)»Sfy 

1980  X=(Xa-X(nin)*Sfx 

1990  IF  Y<0  THEN 

2000  Xani=(Y[nin-Ac)/Sl 

2010  X=(Xain-Xmin)»Sfx 

2020  Y=0 

2030  END  IF 

2040  IF  Y>100  THEN 

2050  Xam=(Ymax-Ac)/SL 

2060  X=<Xan-Xmin)*Sfx 

2070  Y=100 

2080  END  IF 

2090  PRINT  "PA",X,Y,"PD" 

2100  NEXT  Xa 

2110  END  IF 

2120  PRINT  "PU  SPO" 

2130  END 


Ik 


10  !  FILE  mhE;    Q_LOSS 

20  !  LAST  UPDATED:  23  MAY  33 

100  PRINTER  IS  701 

110  CLEAR  709 

120  BEEP 

130  INPUT  "ENTER  fiONTH.  DATE  AND  TIME  ([-•«  :DD  :HH  :MH:SS)"  .DateS 

140  OUTPUT  709:"TD":DateS 

150  OUTPUT  709:"TD" 

160  ENTER  709;Date$ 

170  PRINT  USING  "1  OX  .  ""Month  ,  date  and  time:  "",1 4A" ;DateS 

180  BEEP 

190  INPUT  "ENTER  INPUT  MODE  ( 1 =3054A,2=FILE)" , Im 

200  IF  Im=1  THEN 

2t0  BEEP 

220  INPUT  "GIVE  A  NAME  FOR  DATA  FILE" ,D_f i leS 

230  CREATE  BDAT  D_file$,15 

240  ELSE 

250  BEEP 

2G0  INPUT  "GIVE  THE  NAME  OF  THE  EXISTING  DATA  FILE" ,D_f i Ie$ 

270  BEEP 

280  INPUT  "ENTER  THE  NUMBER  OF  RUNS  STORED". Nrun 

290  END  IF 

300  ASSIGN  3File  TO  D_FileS 

310  BEEP 

320  INPUT  "GIVE  A  NAME  FOR  THE  OUTPUT  FILE" .0_f i leS 

330  CREATE  BDAT  0_fileS.i5 

340  ASSIGN    oiFileo    TO   0_fileS 

350  K=0 

360  BEEP 

370  INPUT  "OK  TO  GO  AHEAD  (HIT  ENTER)". Ok 

380  IF  Im=1  THEN 

390  OUTPUT  7G9:"AR  AF19  AL2r' 

400  OUTPUT  722:"Fi  R1  T1  Z1  FLI" 

410  FOR  1=0  TO  2 

420  OUTPUT  709:  "AS  SA" 

430  ENTER  722:Emf(I) 

440  IF  I>0  THEN  Emf ( D =ABS<Emf < I) )*1 0^5 

450  NEXT  I 

460  Tsteam=FNTvsv( (Enf ( 1 )+Emf (2) )* .5) 

470  OUTPUT  709;"AR  AF23  AL24" 

480  OUTPUT  722;"F1  R1  T1  Z1  FL1" 

^yu  hUK  j=u  TO  1 

500  OUTPUT  709;  "AS  SA" 

510  ENTER    722:Enif(J+3> 

520  Enf(J+3)=ABS(Emf<J+3))»10^6 

530  NEXT  J 

540  OUTPUT  ?File;Emf(*) 

550  ELSE 

560  ENTER  ^File;Emf(*) 

570  END  IF 

580  Tsteari=FNTvsv((Emf  (U+Emf  (2)>*.5> 

590  Troom=FNTvsv((Emf <3)+Emf (4))».5) 

600  Poujer  =  (Enf  (0)*100>"2/5.75*1  .E-3 

610  Dt=Tstean-Troom 

620  PRINT  USING  "1  OX  ,  3D  .3D  .3<DDD  .  DD  ,2X)"  ;Po.jer  .  Tsteam  .  Troom,Dt 

630  K=K+1 

640  IF  Im=l  THEN 

650  BEEP 
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660  INPUT  "ARE  YOU  TAKING  MORE  DATA  <  1  =YES  ,0  =  NO)'?"  .Go  on 

670  IF  Go_on=1  THEN  380 

680  ELSE 

690  IF  K<Nran  THEN  380 

700  END  IF 

710  END 

720  DEF  FNTvsv(V) 

730  T  =  V*(  .02617334416-^>'*(9.2447859E-7-V*6.0746642E-n)) 

740  RETURN  T 

750  FNEND 
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Month,  date  and  time:  06:01:14:55:20 

The  foiiouing  analysis  uas  performed  for  dat< 


Position  number 
Wall  temperature  (Deg  O 
Average  uai 1  temperature 
Inlet  uater  temperature 
Outlet  uater  temperature 
Log-mean- temp  difference 
Water  velocity 
Sieder-Tate  parameter 
Nusselt  nuinber 


Position  number 

Wall  temperature  < Deg  C) 

Average  wall  temperature  =  51.42  (Deg  C) 

Inlet  tjater  temperature   =  25.36  (Deg  C) 

Outlet  uater  temperature  =  27.39  (Deg  C) 

Log-mean- temp  difference  =  35.03  (Deg  C> 

Water  velocity           =  1.92  (m/S> 

Sieder-Tate  parameter    =  7032.7 

Nusselt  number           =  199.76 

Position  n>jLmber  :    1      2     3 

Wall  temperature  (Deg  C)  :  63.10  65.85  60.61 
Average  ual 1  temperature  =  60.43  (Deg  C> 
Inlet  water  temperature  =  25.77  (Deg  C) 
Outlet  uater  temperature  =  28.59  (Deg  C) 
Log-mean- temp  difference  =  32.79  (Deg  C) 
Water  velocity  =   2.47  (m/S) 

Sieder-Tate  parameter    =   8634.8 
Nusselt  number  =   247.76 


in  f 1  le  DD10 


1     2     3 

4     5     6 

66.92  65.43  52.00 

57.65  55.81  53.03 

61  .55  (Deg  C) 

23.94  (Deg  O 

26.32  (Deg  C) 

35.42  (Deg  C) 

I  .37    (m/S) 

5342.8 

158.72 

1     2     3 

4     5     6 

58.20  56. 10  61 .57 

55.55  65.90  58.93 

4 
54.03 


5     6 
65.49  57.68 


Position  number  :, 

Wall  temperature  (Deg  C)  : 
Average  wall  temperature  = 
Inlet  uater  temperature-  = 
Outlet  water  temperature  = 
Log-mean- temp  difference  = 
Water  velocity 
Sieder-Tate  parameter 
Nusselt  number 

Position  number  : 

Wall  temperature  (Deg  C>  : 
Average  wall  temperature  = 
Inlet  water  temperature 
Outlet  water  temperature  = 
Log-mean- temp  difference  = 
Water  veloc i ty 
Sieder-Tate  parameter 
Nusselt  number 

Position  number  : 

Wall  temperature  (Deg  C)  : 
Average  wall  temperature  = 
Inlet  water  temperature 
Outlet  water  temperature  = 


1      2     3     4     5     5 
67.70  55.11  59.70  52.58  54.40  56.49 
59.34  (Deg  C) 
28.23  (Deg  C) 
29.94  (Deg  C) 
30.22  (Deg  C> 

3.01  (m/S) 
101S1  .5 

302.10 

12  3  4  5  5 

66.59   64.08   58.48   51.22   53.06   55.10 
58.04    'Deg   C) 
29.73    (Deg   C) 
31  .19    (Deg   C) 
27.58    (Deg   C) 

3.56    (n/S) 
11675.1 

347.19 

12  3  4  5  5 

57.13   64.45   53.95   51.53   63.75   55.68 
58.53    (Deg   C) 
31.31    (Deo   C> 
33.28    (Deg   C) 
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t 

3 

4 

5 

6 

70 

.32 

67.38 

;  62.08 

55. 

23 

66.93 

59. 

06 

61 

.84 

(Deg 

C) 

33 

.57 

(Deg 

C) 

35 

.09 

(Deg 

C> 

27 

.51 

(Deg 

C) 

3 

.29 

(m/S) 

ii: 

122. 

,3 

Log-mean- temp  difference  =  25.93  (Deg  C) 
Water  velocity  =   3.8/4  (m/S> 

S:eder-Tate  parajneter    =  12518.8 
Nasselt  niunber  =   371.81 

Position  number 

Wall  temperature  (Deg  O 

Average  ual 1  temperature 

Inlet  uater  temperature 

Outlet    ujater    temperature 

Log-mean- temp  difference 

Water  velocity 

Sieder-Tate  parameter 

iNusselt  number  =   331.04 

Position  number  :    1     2     3     4     5     6 

Wall  temperature  (Deg  O  :  74.00  71.28  55.83  58.91  70.63  62.82 

Average  wall  temperature  =  65.70  (Deg  C> 

Inlet  uater  temperature   =  35.46  (Deg  O 

Outlet  water  temperature  =  37.16  (Deg  C) 

Log-mean- temp  difference  ^  29.38  (Deg  O 

Water  velocity  =   2.74  (m/S) 

Sieder-Tate  parameter    =   9850.0 

Nusselt  number  =   284.11 

Position  number  :    1     2     3     4     5     6 

Wall  temperature  (Deg  C)  :  77.43  74.65  69.49  62.86  74.08  68.46 

Average  wall  temperature  =  69.42  (Deg  C) 

Inlet  water  temperature   =  37.27  (Deg  C> 

Outlet  water  temperature  =  39.19  (Deg  C> 

Log-mean- temp  difference  =  31.18  (Deg  C> 

Water  velocity  =   2.19  (m/S) 

Sieder-Tate  parameter    =   8354.8 

Nusselt  number  =   240.23 

Pos  1 1  ion  number 
Ual 1  temperature  (Deg  C) 
Average  wall  temperature 
Inlet  water  temperature 
Outlet  water  temperature 
Log-mean- temp  difference 
Water  velocity 
Sieder-Tate  parameter 
Nusselt  number 

Sieder-Tate  Coefficient   =   .0294 

Least-Squares  Line: 

Slope        =  2.93533E-02 
Intercept    =   O.OOOOOE+00 


1 

2 

3 

4 

5 

6 

80.70 

77.96 

i  73 

.09 

67. 

18 

77.57 

70.37 

73.22 

(Deg 

C) 

38.92 

(Deg 

C) 

41  .23 

(Deg 

C) 

33.12 

(Deg 

C) 

1.54 

(m/S) 

1 

6722, 

.9 

200.30 
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Month,  date  and  time  : 05 :30 : 15  :27  :  15 

The  following  analysis  uas  performed  for  data  in  file  DR1 

Measured  pressure  =  9.57SE+04  <Pa> 

Pressure  corresponding  to  measured  steam  temp  =  S.010E+04  (Pa) 
Noncondensable  gas  concentration  =   5.8  (Vol  7.) 

Noncondensabie  gas  concentration  =   9.0  (Mass  */.) 


Water  velocity 
Reynolds  nuriber 
Inside  hoat-tran  coef 
Overall-heat-trans  coe 
Heat  flux 

Outside  heat-tran  coef 
Nusselt  coefficient 


=  0.32  (n/S) 

=  13139.2 

=  5356.2  (W/m-2-K) 
f   =  3393.6  (W/m'2-K> 

=  2.22899E  +  05  (l'J/m-2> 

=  19990.5  (W/m'-2-K) 

=  1  '304.5  (W/m^2-K) 


Nus  coef  (from  heat  flux)  =  10797.9  (W/m^2-K> 


Water  velocity 

Reynolds  number 

Inside  heat-tran  coef 

Overai l-neat-trans  coef 

Heat  flux 

Outside  heat-tran  coef 

Nusselt  coefficient 

Nus  coef  (from  heat  flux) 

Water  velocity 

Reynolds  number 

Inside  heat-tran  coef 

Overal 1-heat- trans  coef 

Heat  flux 

Outside  heat-tran  coef 

Nusselt  coefficient 

Nus  coef  (from  heat  flux) 

Water  velocity 
Reynolds  number 
inside  heat-tran  coe+ 
Overall-heat-trans  coef 
Heat  flux 

Outside  heat-tran  coef 
Nusselt  coefficient 


1 .54  (m/S> 
26418.9 
9074.3  (W/m^2-K) 
4109.5  (W/m^2-K) 
2.b8764E+05  (W/m^2) 
11186.9  (W/m^2-K) 
10320.1  (W/m'2-K) 

10005.0  (W/m'^2-K) 

2.47  (m/S) 
40022.4 

12466.1  (W/m-2-K) 
4725.9  (W/n'2-K> 

3.a685lE+05    (W/m'2) 
10550.9    <W/m^2-K> 
9822.2    (W/m-2-K) 
9484.8    (H/m^2-K) 

3.29    (m/S> 

53980.1 

15667.3    (W/m"2-K) 

5331  .5    (W/m"2-K) 
3.43200E^05    (W/m^2) 
10926.6    (W/m"2-K) 

95M.1    (W/m^2-K) 


Nus  coef  (from  heat  flux)  =   9075.4  (H/m^2-K> 


!"iater  velocity 
Reynolds  number 
Inside  heat-tran  coef 
Overal 1-heat- trans  coef 
Heat  flux 

Outside  heat-tran  coef 
Nusselt  coefficient 


3.84  (m/S) 

63586.5 

17728.9  (W/m^2-K) 

5652.2  (W/m'2-K> 
3.6i307E^05  (W/m^2) 
11060.4  (W/m-2-K> 

9359.5  (W/m"2-K) 


Nus  coef  (from  heat  flux)  =   8889.1  (W/m'~2-K) 

NOTE:   5  X-Y  pairs  were  stored  in  plot  data  file  PDR1 
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